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Nel prossimo numero 


REM:HW 


L’interfaccia come e perché: lo Spectrum 
diventa «computer di casa». 
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I libri da leggere... 


...e il software da giocare 
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^ empre con maggiore frequenza si assiste al “fenomeno”, diciamo così, 
^ della pirateria del software. Non che la cosa sia nuova, vale comunque 
la pena di spendere qualche parola a tal proposito. 

Per scrivere del buon software giocoso, professionale o gestionale servono 
molte ore di duro lavoro intellettivo, un certo numero di ore di lavoro ma- 
nuale relative alla codifica, oltre al tempo necessario per il test e la corre- 
zione del programma. 

Forse qualcuno di voi si è cimentato nella scrittura di programmi semplici 
o complessi e si sarà reso conto di quanta fatica sia necessaria per la messa 
a punto di un prodotto software. 

Data la premessa è chiaro che pirateggiare, rubando il software altrui per 
venderlo sottocosto è azione degna perlomeno di biasimo se non di azioni 
legali vere e proprie. 

La legislazione italiana non prevede ancora forme di protezione efficaci per 
chi cerca di vivere ed operare onestamente nel settore del software; di con- 
seguenza individui privi di scrupoli e di etica professionale possono “ruba- 
re” impunemente il prodotto altrui frustrando così ogni possibilità di onesti 
guadagni. 

Un vasto numero di operatori del settore sta organizzando iniziative per re- 
primere questo dilagante malcostume. Per ogni forma di protezione del soft- 
ware messa a punto dagli autori vengono prodotti altrettanti sistemi di co- 
piatura abusiva. 

Una situazione senza fine perpetrata in continuazione a scapito di una qua- 
lificata offerta di validi prodotti. 

Tutto ciò crea la necessità di elevare i prezzi per recuperare, almeno in par- 
te, l’investimento “tempo” speso per l’elaborazione del programma. 1 mag- 
giori costi gravano, assurdamente, sugli utenti onesti che acquistano rego- 
larmente il programma. 

Una cassetta con un buon gioco per VIC, C64 o Spectrum potrebbe costare 
dalle 3 alle 5.000 lire se questo mercato seguisse le normali regole del 
commercio. 

La prossima volta che qualcuno vi propone l’acquisto di software copiato, 
meditate un attimo al danno provocato da tale gesto e forse, in futuro, allo 
stesso prezzo potrete comprare una copia originale del programma. 

Pietro DeirOrco 
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NON 

UN ABBONAMENTO 

UN SUPERABBON A MENTO 


Questo è ciò che ia J .soft ti offre: un superabbonamento ad una super-rivista! 
Una eccezzionale offerta di lancio: 13 numeri di SUPERSINC al prezzo 
di 10 oltre alla possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L’offerta è valida fino al 20/10/1984. 





LE NOSTRE SUPERPROPOSTE ABBONAMENTI 

Abbonamento* a 13 numeri (2 nel 1984 + 11 nel 1985) 
di SUPERSINC al prezzo speciale di L. 35.000 


Abbonamento* a 13 numeri di SUPERSINC + 13 cassette 
con tutti i programmi pubblicati al 
prezzo speciale di L. 75.000 


'L’abbonamento decorrerà dal prossimo numero 


Abbonarsi è semplice! Effettuate il versamento con l’apposito modulo 
c.c.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 

assegno intestato a: 

J .soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 

' J .soft - Via Rosellini 12 - 20124 Milano 

□ Desidero sottoscrivere un abbonamento a 13 numeri (2 nel 1984 + 11 nel 1985) di SUPERSINC al \ 
prezzo speciale di L. 35.000 

□ Desidero sottoscrivere un abbonamento a 13 numeri (2 nel 1984 + 11 nel 1985) di SUPERSINC 
+ 13 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 


cognome 


nome 


via 

t 

città 


cap. 

provincia 


data 



Stampa o stampante? 

Nei listati doureste usare una vera stam- 
pante (magari un'Alphacom)... mantene- 
te un filo diretto con l'Inghilterra, uisto che 
lì le novità hard e soft (soprattutto soft) 
sono costanti. 

Andrea Rampi - Borgolavezzaro 

(NO) 

Questa lettera è solo un esempio delle 
tante che ci sono pervenute in merito 
alla questione della “stampa ’ dei lista- 
ti, su cui la maggioranza dei lettori mo- 
stra delle perplessità (soprattutto per la 
probabilità più alta di commettere er- 
rori di composizone). A questo propo- 
sito diciamo a tutti che i listati da noi 
pubblicati NON sono stampati, bensì, 
appunto, ‘ listati” nel senso letterale del 
termine da una stampante professiona- 
le interfacciata con uno dei nostri Spec- 
trum: ragion per cui non avete da teme- 
re nessun errore in quanto i program- 
mi, una volta verificati, vengono listati 
direttamente senza passaggi intermedi. 
Dopo di che l'output su carta viene fo- 
tografato (NON composto) e riprodot- 
to sulla rivista. Su SCIPERSINC leggete 
i listati dei programmi esattamente co- 
me escono dalla nostra stampante, sen- 
za manipolazioni di qualsiasi genere. 
Quanto al “filo diretto ”, la J. soft ha di 
recente concluso accordi in base ai qua- 
li ci troviamo da alcuni giorni in posses- 
so di 200 programmi selezionati tra i 
migliori sul mercato britannico, e che 
vi presenteremo numero per numero. 
Oltre a questo, ci verrano fornite, ogni 
mese, le ultimissime novità, così che sa- 
remo in grado di darvi anche qualche 
anterpima (come è già successo, ad 
esempio, per “Cosmic Cruiser”). Vedre- 
te che le sorprese non mancheranno! 

Problemi di carattere. •• grafico 

Caro SCIPERSINC, 

possiedo uno Spectrum 48K e ho un pro- 
blema che mi assilla da mesi. Per defini- 


re un carattere grafico uso il sistema bi- 
nario e guardando i vostri listati mi sono 
accorto che voi usate il seguente modo 
(l'esempio che riporto è tratto dal gioco 
“ attacco missilistico "): 

10 FOR n = 0 TO 39 

20 READ d: POKE USR “a" + n,d 
25 NEXT n 

1000 DATA 0,6,6,2,14,150,230,254, 
230... e così via per un totale di 40 nu- 
meri. 

Ora vorrei sapre: 1 ) Come fate a calco- 
lare i DATA (per esempio, 238)? 2) Il 39 
della linea 10 da cosa dipende? 

Francesco Pertoldi - Roma 

238 (e tutte le altre cifre) sono la tradu- 
zione in decimale (cioè quella che usia- 
mo correntemente) dei loro corrispet- 
tivi in binario; dal punto di vista della 
definzione dei caratteri grafici, il calco- 
latore accetta indifferentemente una 
forma o l'altra — e difatti, nel caso spe- 
cifico, 238 equivale a scrivere BIN 
1 1 101 1 10. La conversione dal binario 
al decimale si ottiene moltiplicando 
ogni cifra per una potenza crescente di 
2 (partendo da destra, il primo numero 
va moltiplicato per 2 elevato allo zero, 

11 secondo per 2 elevato alla prima, ec- 
cetera) e sommando tutti i valori così 
calcolati. Il ciclo della linea 10 va da 0 
a 39, dando quindi progressivamente a 
“n” 40 valori. Ognuno di questi corri- 
sponde a uno dei 40 numeri delle linee 
DATA di cui sopra: come abbiamo già 
detto, ogni cifra equivale a un numero 
binario che, nel sistema di definizione 
dei caratteri dello Spectrum, definisce 
un ottavo (una riga) di carattere. Utiliz- 
zando quindi otto numeri per ognuno 
di essi, con 40 numeri definiremo 5 ca- 
ratteri grafici. Per ulteriori spiegazioni 
rimandiamo tutti alla lettura di “C1DG: 
ovvero....’ di Carlo Panzalis (di cui pub- 
blichiamo in questo numero la prima 
parte), articolo ricco di chiarimenti e ap- 
profondimenti sul tema. 



Per lo ZX81 

Vi raccomando di mantenere la promes- 
sa di inserire nella rivista programmi brevi 
anche per lo ZX8 1 . 

Giovanni Patané - Genova 

Come puoi vedere la promessa è stata 
mantenuta, anche se non riauardava 
la... brevità dei programmi. In ogni ca- 
so, per gli amanti della concisione, con- 
tiamo di pubblicare nei prossimi numeri 
anche alcuni listati per lo ZX81 inespan- 
so (che è dotato, come è noto, di 1K 
RAM). 

L’avventura degli “Adventure” 

Sono un ragazzo di quindici anni appas- 
sionato di computer e videogames. Pos- 
seggo lo ZX Spectrum e devo dire che so- 
no molto soddisfatto delle sue prestazio- 
ni. Vorrei farvi un paio di domande: l) 
Potete darmi delle spiegazioni sui giochi 
'Adventure'' (ne ho uno ma non so farlo 
funzionare: aiutatemi!!!)? 

2) Ho saputo che sono usciti giochi del- 
l'Atarisoft che vanno bene anche sul Sin- 
clair. E vero ? 

Lettera firmata 

Carissimo, 

innanzitutto una raccomandazione: la 
prossima volta metti il tuo nome non 
sulla busta (che viene trattata in gene- 
re piuttosto male dalle nostre segreta- 
rie) ma anche sulla lettera, OK? Venen- 
do alle tue domande, 1) Per poterti da- 
re dei consigli avremmo bisogno di ri- 
cevere qualche informazione in più; ci 
interesserebbe soprattutto sapere qual 
è l'avventura che ti crea questi proble- 
mi. Per consigli generici, invece, non è 
questa la sede adatta: vedremo invece 
di pubblicare uno o più articoli sull’ar- 
gomento. 2) Verissimo. Potrai trovar- 
li in qualunque negozio specializzato e 
aggiornato. 
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Erroracci ed errorini 

Cari amici di SCIPERSINC, 
sono uno studentello alle prime armi col 
BASIC ed ho incontrato alcuni problemi 
soprattutto quando ho digitato alcuni 
programmi dal libro “77 programmi per 

10 Spectrum", e mentre molti di questi gi- 
rano, due di loro (ahi!) mi fanno impaz- 
zire (“Roulette" e “Tavole di numeri e let- 
tere"), in quanto pur avendoli controllati 
un sacco di volte non girano. Secondo voi 
di cosa si tratta? Ho sentito dire che ci so- 
no differenze tra i vari modelli dello Spec- 
trum... inoltre vi sarei infinitamente gra- 
to se mi vorreste spiegare dettagliatamen- 
te il procedimento sulla formazione dei 
caratteri definiti dall'utente , in quanto se- 
guendo le istruzioni fornite dal manuale 
in versione italiana a pagina 145 non 
succede niente. 

Giorgio Mangoni - Napoli 

Quei due programmi sono sicuramen- 
te esatti (del resto, ne vengono anche 
pubblicate rispettivamente una scher- 
mata e l’hard copy su stampante), e gli 
eventuali malfunzionamenti sono da at- 
tribuire ad errori di copiatura. Per “Rou- 
lette" sappiamo che molti commettono 
l’errore di scrivere la parte di stringa “()” 
— all’interno della linea 130 — usando 

11 tasto “w” con SYMBOL SHIFT invece 
di utilizzare, sempre con SYMBOL 
SHIFT, i tasti “r” e “t”. Quanto al secon- 
do, le indicazioni forniteci sono insuf- 
ficienti per azzardare ipotesi, né ci so- 
no pervenute altre segnalazioni da par- 
te dei lettori. Consigliamo comunque di 
non cambiare in minuscole (specie in 
“Roulette”) le lettere maiuscole presenti 
nelle varie stringhe alfanumeriche. 

In ogni caso, non si tratta di inconve- 
nienti derivanti dall’uso di Spectrum di 
versioni diverse da quella con cui il pro- 
gramma è stato scritto. Le uniche dif- 
ferenze tra le versioni due e tre dello 
Spectrum (quelle in vendita in Italia) ri- 
guardano l’uso della funzione di lettu- 
ra della tastiera IN, che ritorna valori di- 
versi a seconda della versione. Da qual- 
che tempo si trovano in commercio an- 
che due ulteriori elaborazioni della ver- 
sione tre, chiamate 3a e 3b, sulle quali 
non abbiamo per ora informazioni (te- 
nete sempre presente l’anticipo con cui 
viene redatta la rubrica). 

Infine, l’unico errore presente nella spie- 
gazione del manuale è quello di dare un 
carattere grafico definito come forma- 
to da... nove linee BIN anziché otto. Il 
resto del testo è corretto: se tutte le ope- 
razioni descritte vengono compiute sen- 
za commettere errori — ricordarsi di da- 
re il RUN al programmino di inserimen- 



to! — , entrando in modo grafico e digi- 
rando la “p” deve apparire il simbolo 
grafico definito (la linea BIN da trala- 
sciare è una qualsiasi di quelle tra la 
quinta e l’ottava comprese), cioè pi gre- 
co. 


Quel QL... 

Suggerirei di aprire su SCIPERSINC una 
rubrica dedicata al QL Sinclair, con qual- 
che piccolo listato... 

Stefano Pini - Vedano al Lambro 

(MI) 

Certamente non mancheremo di dedi- 
care uno, anzi, più di uno spazio all’ul- 
timo calcolatore Sinclair. Nel frattem- 
po, invitiamo i (per il momento) pochi 
lettori che lo posseggono a fornirci no- 
tizie, curiosità, bug e... anche listati. 

Perché niente sport? 

Caro SCIPERSINC. 

perché sullo Spectrum non esistono il cal- 
cio e altri sport tipo Commodore? Spero 
molto in una risposta soddisfacente. 

Osfaldo Pagano - Catania 

Lo Spectrum si presta un po’ meno di 
altri computer (“tipo Commodore”) al- 
la simulazione sportiva, soprattutto per 
limiti intrinseci riguardanti alcune par- 
ticolarità grafiche e, più in generale, la 
velocità. Tuttavia, ciò non è sufficiente 
a giustificare una lacuna così grande, 
tanto più che il software disponibile per 
lo ZX non è certo poco... che dire? In- 
nanzitutto giriamo la proposta alle soft- 
ware house e ai programmatori più ca- 
paci; in secondo luogo, segnaliamo che 
da qualche tempo sono scese in cam- 
po, per quanto riguarda i programmi 
per Spectrum, la Atarisoft e la Activi- 
sion, società notissime nel campo dei 
videogiochi da consolle. La seconda ha 
già creato un Tennis per Spectrum: e 
conoscendo l’inclinazione di queste due 
“grandi” verso i giochi ad argomento 
sportivo, possiamo ragionevolmente 
sperare che i loro progetti si sviluppi- 
no anche in questa direzione. Soddisfat- 
to? 


Benedetti manuali! 

Ha da poco comprato lo ZX, e leggendo 
il manuale non ho capito a cosa servono 
le POKE, PEEK e DATA, che mi pare sia- 
no molto importanti. 

Franco Spedale - Desenzano 

(BS) 

Ma davvero il manuale si presenta così 
oscuro? Comunque, l’istruzione POKE 


serve ad introdurre o modificare valori 
numerici presenti nelle singole locazio- 
ni di memoria: per esempio, POKE 
23609,255 inserisce il valore 255 all’in- 
temo della locazione 23609, che per in- 
ciso regola il... beh, chi non lo sa già 
provi a vedere! PEEK serve a leggere il 
valore di una locazione: nel caso di cui 
sopra, è possibile sapere che valore è 
stato inserito nella locazione 23609 fa- 
cendo, appunto, PRINT PEEK 23609, 
che visualizzerà il valore 255 (o il nu- 
mero in quel momento presente in 
23609). Quanto a DATA, quest’istruzio- 
ne serve a inserire in un programma li- 
ste di numeri, o stringhe alfanumeriche, 
che verranno lette dal programma stes- 
so al momento opportuno mediante l’i- 
struzione READ. Non ci addentriamo in 
spiegazioni più approfondite, non es- 
sendo questa la sede più opportuna; vi 
diciamo però che stiamo realizzando 
una rubrica che analizzerà approfondi- 
tamente un comando alla volta di quelli 
disponibili nel Basic Sinclair, che spe- 
riamo potrà chiarire dubbi e interroga- 
tivi a chi non riesce a districarsi nelle 
(non sempre, però) un po’ ermetiche 
spiegazioni del manuale (specie quello 
in edizione italiana, dove figura qualche 
piccolo errore assente nell’edizione ori- 
ginale). 


La nave del destino 

Spettabile Redazione, 
sarei lieto se potesse pubblicare questo 
appello che riguarda la cassetta-gioco 
“The Ship ofDoom", un adventure game 
che ho avuto in omaggio insieme all'e- 
spansione di memoria per lo Spectrum: 
come si fa a prendere la chiave da sotto 
la campana di vetro? Ho provato col la- 
ser (che ho trovato in una stanza), ma do- 
po aver dato il comando “spara sul ve- 
tro" il computer risponde che “ tutto l'in- 
volucro è stato distrutto" e non c'è più 
traccia della chiave, indispensabile per 
proseguire. Che senso ha la frase “non 
ti fidare delle donne" che il calcolatore dà 
come risposta al comando “ help " quan- 
do si è nella stanza col corpo congelato? 

Giovanni Amietta - Milano 

Purtroppo non abbiamo mai avuto oc- 
casione di giocare a “The Ship of 
Doom”, e quindi non possiamo essere 
molto di aiuto, tranne per girare l’appel- 
lo a chi ci legge. Abbiamo compiuto un 
rapido sondaggio tra redazione e uffi- 
cio grafico per saperne di più circa il 
senso della frase “non ti fidare delle 
donne”, ma i risultati ottenuti sono 
completamente impubblicabili.... 
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Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l’accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 
per la pubblicazione: 


1 l’angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 
rizzo, numero telefonico, codice fiscale e da- 
ta di spedizione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 

3 il titolo sottolineato dell’articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un’abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes... /Brambilla/2. 

5 tutte le linee del testo dell’articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 

6 dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 

7 i fogli dovranno essere uniti con una clip. 

8 avendo intenzione di spedire più di un arti- 
colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 

9 programmi brevi (meno di 20 linee) potran- 
no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. È ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. E preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell’autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto le 


eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Gn rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETGRN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 

1 *| gli articoli ed i programmi potranno avere 
X qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 
si. 

volendo includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 
in bianco e nero o diapositive. 

non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300 . 000 ). 11 paga- 
mento è effettuato in caso di pubblicazione del 
lavoro. 

il materiale ricevuto e non pubblicato non 
verrà restituito. 

Spedite i vostri lavori a: 

SGPERSINC 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contributi mi- 
gliori. 

La Redazione 
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Cosa cambia 
con ! Microdrive? 


di Marcello Spero 


Illustrazione e critica della rivolu- 
zionaria (e discussa) memoria di 
massa sviluppata dalla Sinclair 


O rmai facilmente reperibili in tut- 
ta Italia, i famosi e tanto attesi Mi- 
crodrive hanno trovato un folto pubbli- 
co di entusiasti ed uno, forse ancora 
più numeroso, di dubbiosi. 

Molti sono infatti coloro che si chiedo- 
no se non si tratti, dopotutto, di una 
specie di “super registratore”; di qual- 
cosa che, comunque, non giustifica 
una spesa di oltre trecentomila lire 
(per una sola unità). 

Non è certamente nostra intenzione 
decidere per voi se sia il caso o meno 
di dotare il vostro Spectrum di questa 
nuova periferica; cercheremo soltanto 
di fornirvi gli elementi, che riteniamo 
obiettivi poiché provenienti da 
un’esperienza pratica di ormai quattro 
mesi, perché possiate giudicare voi 
stessi. 

Cosa sono 

Nel corso della lunga gestazione dei 
Microdrive una ridda di informazioni, 
provenienti da fonti attendibili o pre- 
sunte tali, ha contribuito a confondere 
non poco le idee di noi poveri mortali 
in attesa. Quando, finalmente, abbia- 
mo avuto in mano il prodotto funzio- 
nante, ci siamo resi conto che dalla pri- 
ma idea di Clive Sinclair molta acqua 
era passata sotto i ponti del Tamigi,' e 
molte cose erano cambiate. 

II sistema Microdrive-interfaccia 1 (il 
primo non può infatti funzionare senza 
la seconda) è una periferica per l’archi- 
viazione di masse di dati, cioè una me- 
moria di massa, con velocità di funzio- 
namento (cioè nel “registrare” e “resti- 
tuire” le informazioni) e flessibilità di 
uso (cioè il numero di modi diversi in 
cui le informazioni possono essere or- 
ganizzate nel suo interno) di gran lun- 
ga più elevate rispetto ad un registrato- 
re a cassette. 



Come sono fatti 

Il Microdrive in sé per sé, cioè il “pac- 
chetto di sigarette”, rappresenta la par- 
te meccanica del sistema; è sostanzial- 
mente un registratore molto veloce, 
che usa cassette senza fine (con gli 
estremi del nastro uniti) come il vec- 
chio “stereo 8” di buona memoria. 

Le cassettine, chiamate cartucce, han- 
no una struttura interna veramente 
semplice anche se, a nostro giudizio, 
non completamente affidabile. Il na- 
stro, lungo circa 5 metri ed alto solo 
1,5 mm., è unito ad anello ed avvolto 
su di una bobina in nylon che presenta 
inferiormente un largo piatto di conte- 
nimento, mentre superiormente ha un 
bordo inclinato. Esso viene dunque 
preso dal centro della bobina, posizio- 
ne in cui sporge dall’alto grazie al bor- 
do inclinato; passa attorno ad una pri- 
ma rotella e quindi, tenuto teso da un 
feltrino a .molla come quelli delle cas- 


sette, è portato anteriormente a con- 
tatto con la testina del Microdrive. A 
questo punto incontra una seconda ro- 
tella, che sporge dall’involucro della 
cartuccia, e sulla quale fa presa il cap- 
stan in gomma del motore. Infine rien- 
tra e viene riavvolto sulla parte esterna 
della bobina. 

Come abbiamo detto, questo sistema 
non sembra dare eccessive garanzie; 
prova ne è il blocco di una delle nostre 
cartucce, causato da un tremendo e ir- 
rimediabile “arrotolamento” interno 
del nastro. Bisogna comunque dire 
che si è trattato di un caso isolato, e 
potremmo anche essere stati partico- 
larmente sfortunati. 

Oltre a non dover essere mai riavvolto, 
il nastro scorre con velocità tale da far- 
lo passare tutto davanti alla testina 
ogni sette secondi circa: è questo per- 
ciò il tempo massimo di ricerca. 

La parte elettronica che pilota il Micro- 


? 
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drive è contenuta nell’interfaccia 1, 
che come senz'altro saprete è di forma 
piatta e si colloca al di sotto dello 
Spectrum, inclinandolo in avanti. Col- 
legata al computer tramite il solito 
connettore a pettine posteriore, si col- 
lega al primo Microdrive per mezzo di 
un cavo piatto flessibile a 16 poli (un 
po’ corto, in verità); le eventuali ulte- 
riori unità, fino ad un totale di otto, 
vengono collegate l’una all'altra in mo- 
do rigido, per mezzo di una doppia spi- 
na, e bloccate con una staffa avvitata, 
per evitare improvvisi distacchi. Le 
possibilità deM’interfaccia 1 non si li- 
mitano comunque alla gestione dei Mi- 
crodrive; in essa sono compresi anche 
due mezzi di collegamento con l’ester- 
no: un’interfaccia seriale RS232 ed una 
per il collegamento di più Spectrum in 
rete locale. Di queste possibilità parle- 
remo comunque in un prossimo artico- 
lo, riservando questo al Microdrive. 

Come funzionano 

Il collegamento del complesso 
Microdrive-interfaccia 1 rende operati- 
vi tutti quei comandi, posti sotto la pri- 
ma fila di tasti, che finora davano, se 
usati, errori di vario tipo; inoltre con- 
sente l’uso di alcuni dei normali co- 
mandi in forme nuove, prima non ac- 
cettate. Dei nuovi comandi parleremo 
fra un attimo; ora ci interessa analizza- 
re come sia stato possibile rendere 
operativo qualcosa che per il BASIC 
dello Spectrum era errore. 

La sintassi dei nuovi comandi, nonché 
delle nuove versioni di quelli "vecchi”, 
è contenuta, insieme ad una valanga di 
informazioni riguardanti la manipola- 
zione dei dati da e per i Microdrive e le 
altre linee (RS232 e rete), in una ROM 
da 8K contenuta nell'interfaccia 1. 

Il problema di far "convivere" queste 
due ROM è stato risolto in un modo a 
dir poco originale; ogni volta che la 
CPU dello Spectrum tenta di eseguire 
le routine della ROM (quella originale) 
all’indirizzo 0008 esadecimale (si trat- 
ta della routine di errore) o 1708 esa- 
decimale (riguarda la chiusura di un 
canale), l'interfaccia 1 se ne accorge e 
porta a livello alto la linea ROMCS, fa- 
cendogli così letteralmente "sparire” 
la ROM originale della memoria. Al 
suo posto collega la nuova ROM, detta 
appunto "fantasma”; se l’errore che 


stava per essere segnalato con un mes- 
saggio della vecchia ROM riguarda 
uno dei nuovi comandi, o la chiusura 
di un canale riguardante il complesso 
interfaccia-Microdrive, la ROM fanta- 
sma resta collegata per il tempo neces- 
sario a compiere tutte le operazioni re- 
lative. Terminato il suo compito, le 
viene nuovamente sostituita la ROM 
originale, che si occuperà dell’istruzio- 
ne successiva. Nel caso l'errore sia in- 
vece "davvero” un errore, che oltretut- 
to non riguarda i nuovi comandi, il ri- 
torno alla vecchia ROM è immediato, e 
la routine di errore riprende. 

Questo sistema mette a disposizione 
dello Spectrum una quantità notevole 
(8K) di nuovo "materiale” su cui lavo- 
rare. Per gli errori riguardanti le nuove 
opeitJZK'ni possibili intatti, è presen- 
te una valanga di messaggi, che copro- 
no ogni eventualità. La particolare 
struttura di analisi degli errori della 
nuova ROM, inoltre, consente al pro- 
grammatore esperto (ma tutti possono 
diventarlo...) l'aggiunta di nuove istru- 
zioni da lui create; di questo ci occupe- 
remo diffusamente in futuro, dando la 
possibilità di usufruire di qualche utile 
istruzione extra anche a quanti non 
hanno la voglia o il coraggio di cimen- 
tarsi nell’impresa. 

Malgrado una struttura operativa tanto 
complessa, il funzionamento dello 
Spectrum esteso (cioè con interfaccia 
e Microdrive) è estremamente traspa- 
rente per l'utilizzatore. Non ci è mai ca- 
pitato che un file (cioè un blocco) di 
dati o di programma fosse stato regi- 
strato in modo difettoso. Può succede- 
re invece, ma si tratta di un problema 
senza grande importanza, che in una 
cartuccia quasi piena un file non venga 
trovato che dopo un certo numero di 
passaggi; ci è anche capitato di ottene- 
re dei cataloghi (maggiori spiegazioni 
su questo fra poco), con cartucce piene 
di un gran numero di file molto corti, 
in cui mancavano i nomi di alcuni file, 
peraltro regolarmente registrati e recu- 
perabili. 

Per quanto riguarda la durata delle car- 
tucce, un argomento che ci aveva tro- 
vato dubbiosi, non ce proprio niente 
da eccepire: il nostro accanimento si è 
infatti concentrato su una cassetta, che 
è stata usata per una media di cinque 
operazioni di i/o al giorno, per cinque 



giorni alla settimana, per quattro mesi 
(escluse le ferie, naturalmente!), senza 
dare ancora nessun segno di "stan- 
chezza”, che il manuale descrive come 
un generale allungamento nei tempi di 
ricerca. 

Come si usano 

La prima cosa da fare con una cartuc- 
cia nuova è formattarla; questa opera- 
zione serve a predisporne lo spazio in 
maniera adatta a ricevere i dati. L’istru- 
zione per questo è FORMAT 
"m”;l ;"nome”, a nostra scelta; duran- 
te questa operazione, che dura una 
trentina di secondi, tutto il nastro vie- 
ne controllato alla ricerca di eventuali 
punti danneggiati, che saranno con- 
trassegnati in modo da non essere mai 
utilizzati. Almeno un punto inutilizza- 
bile c'è sempre, ed è la zona di giunzio- 
ne delle estremità del nastro. Al termi- 
ne compare sullo schermo l’ammonta- 
re di spazio disponibile nella cartuccia 
formattata; questo può variare da un 
massimo di oltre 100K ad un minimo 
garantito di 85K. Non ci è capitato di 
vedere né l una né l’altra situazione; la 
media delle cartucce si aggira infatti 
intorno ai 90-95K. Se dovesse capitar- 
ne una con quantità sensibilmente in- 
feriori di spazio, provate a formattarla 
di nuovo: potrebbe darsi (ci è succes- 
so) che una zona rovinata sia caduta a 
cavallo di due settori (il nastro viene 
diviso dalla formattazione in settori, 
ciascuno della capacità di 512 byte), 
rendendoli entrambi inutilizzabili; un 
nuovo processo può in questo caso mi- 
gliorarne (anche di 2K) le cose. 
L’istruzione CAT 1 (o 2,3... a seconda 
del Microdrive che vogliamo indicare) 
serve invece ad ottenere il catalogo 
della cartuccia inserita, cioè l’elenco, 
in ordine alfabetico (fantastico!) dei fi- 
le, di tutti i tipi, presenti in quel mo- 
mento; in coda viene indicato il nume- 
ro di byte ancora liberi, espressi in K. 
Tutti i comandi cui eravamo abituati 
con il registratore esistono anche per il 
Microdrive, avendo cura di interporre 
fra il comando e il nome del file (che 
qui è sempre obbligatorio, non solo 
durante SAVE) la sequenza *“m”;l; ad 
indicare che l’operazione riguarda l’in- 
terfaccia (*), che il destinatario è un 
Microdrive ("m”), e che si tratta del nu- 
mero 1 (1); quest’ultimo va indicato 
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anche se si possiede un solo Microdri- 
ve. I vari SAVE. LOAD, con o senza 
CODE, DATA, e così via, hanno lo 
stesso uso e significato di prima; per 
quanto riguarda VERIFY, sebbene sia 
regolarmente utilizzabile, da molto 
tempo non lo usiamo più: infatti le pro- 
babilità che qualcosa vada storto qui 
sono veramente infime. Nella remota 
eventualità che questo succeda, esiste 
un raffinato messaggio di errore a pro- 
posito: Verification has failed, la verifi- 
ca è fallita. 

Dove la differenza c’é invece, eccome, 
è nella velocità: qualche secondo per 
programmi di una decina di K o array 
di più di mille elementi, un istante 
(davvero impressionante) per uno 
schermo; il tempo risparmiato, nel ca- 
so di un uso intenso, è realmente note- 
vole. 

Veniamo adesso a tutta la parte inedita 
dei comandi, quelli che rendono i Mi- 
crodrive simili a dei floppy e lo Spec- 
trum espanso un sistema enormemen- 
te più potente di quello inespanso. 
Con l’istruzione OPEN #6; “m ”;l;“pip- 
po” si apre un file (il manuale lo chia- 
ma “file dati” per distinguerlo dai “file 
programma ”, ma anche gli array sono 
file di dati, pur essendo molto diversi 
da questi) di nome “pippo” e lo si asso- 
cia al canale 6; in esso di potrà “scrive- 
re” ciò che si vuole, numeri o caratteri, 
o tutte e due le cose insieme, con 
l’istruzione PRINT #6; seguita da varia- 
bili numeriche, variabili stringa, numeri 
o stringhe. Terminata la scrittura il file 
verrà chiuso con CLOSE #6. Riapren- 
dolo successivamente, con l'istruzione 
uguale a quella vista prima, non sarà 
più permesso scrivere (provateci, e ve- 
drete che messaggio...) ma si potrà leg- 
gere ciò che era stato immesso prece- 
dentemente, con INPUT #5;... seguito 
dalla o dalle variabili, che dovranno 
concordare per tipo (numeriche o strin- 
ghe) con i dati che devono ricevere. È 
ovviamente possibile tenere aperti con- 
temporaneamente più file, alcuni in 
scrittura (cioè appena creati), altri in let- 
tura, e passare con INPUT # e PRINT 
# dei dati dell’uno e all'altro. 

Volendo fare “piazza pulita” di tutti i fi- 
le rimasti aperti, si può usare CLEAR 
# , ma solo se si tratta di file in lettura. 
Usato per file in scrittura ne distrugge- 
rebbe la parte di dati non ancora invia- 


ta al Microdrive; l’invio di dati, infatti, 
avviene solamente quando il loro volu- 
me ha raggiunto i 512 byte (cioè la ca- 
pacità di un settore), o alla chiusura 
del file stesso. Con questo tipo di file è 
possibile anche un altro tipo di opera- 
zione, che potremmo definire “lettura 
automatica totale”. Consiste nella tra- 
scrizione dell’intero file in un altro; 
l’istruzione relativa è MOVE 
‘’m”;l ;“pippo” TO “m’’;l ;“carlo” nel 
caso nessuno dei due file sia stato 
aperto (in questo caso apertura succes- 
siva e successiva chiusura avvengono 
automaticamente), o MOVE #4TO #6 
per file aperti e associati quindi a dei 
canali. Come molti di voi sapranno, lo 
Spectrum vede anche schermo, tastie- 
ra e stampante come file, associati dal 
sistema ai canali 2, 1 e 3, rispettiva- 
mente; questo consente di far stampa- 
re il contenuto di un file su schermo o 
stampante semplicemente con MOVE 
“m”;l ;“pippo” TO #2 (oppure #3), co- 
sa estremamente utile. 


A cosa possono servire 

Voremmo a questo punto spendere 
due parole per chiarire la differenza 
che passa fra l’uso di file “array” e l'uso 
di file dati. Supponiamo di voler me- 
morizzare un elenco di nomi e numeri 
telefonici, per richiamarli all’occorren- 
za. Dovendo usare un file “array” do- 
vremmo avere un elenco completo dei 
nomi in memoria, in un insieme di ca- 
ratteri (o array stringa che dir si 
voglia), e quindi memorizzarlo; per i 
numeri telefonici abbiamo due possi- 
bilità: memorizzarli come numeri con 
un separato insieme numerico, o trat- 
tarli come caratteri e metterli nello 
stesso insieme dei nomi. In ogni caso, 
comunque, dovremmo aver tutto il no- 
stro archivio contemporaneamente in 
memoria, e la stessa cosa succederà al 
momento di richiamarlo per utilizzar- 
lo. Questa situazione comporta serie li- 
mitazioni, dovute alla possibilità di 
memoria, nel numero massimo di no- 
minativi del nostro elenco; tenete con- 
to che dovrà esserci necessariamente 
anche un programma, in memoria, 
perché l'archivio possa servire a qual- 
cosa. e questo programma occuperà 
anche lui la sua fetta di spazio. 
Usando un file dati, invece, potremmo 
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memorizzare ogni singolo nominativo, 
inviando con PRINT # la relativa strin- 
ga, seguito dal suo numero telefonico, 
inviando sempre con PRINT # la varia- 
bile numerica che lo contiene. In que- 
sto modo non avremo mai in memoria 
più di un nome ed un numero. Per re- 
cuperare un determinato nominativo, 
poi, basterà leggere dal file, uno alla 
volta, i vari nomi, usando sempe la 
stessa variabile per non accumularli in 
memoria, fino a trovare ciò che ci inte- 
ressa, Volendo invece l’elenco comple- 
to dei nominativi in archivio, magari 
su stampante, basterà usare MOVE, 
senza bisogno di impiegare memoria. 
Limiti all’ampiezza dell’archivio: nes- 
suno, o meglio la capienza di una car- 
tuccia, disponendo di un Microdrive; vi 
sfido comunque a riempire 90K con un 
elenco di nomi e indirizzi... 

Da questo esempio emerge come i Mi- 
crodrive possano essere particolar- 
mente utili ai possessori di uno Spec- 
trum 16K, che sentono più forti le limi- 
tazioni di memoria. C’è però un parti- 
colare cui occorre prestare attenzione; 
per ciascun file aperto occorre in me- 
moria uno spazio pari a circa 600 byte 
per il buffer (area di accumulo dei dati 
in attesa di essere inviati), la mappa e 
le nuove variabili di sistema. Fate 
quindi bene i vostri conti, perché di 
memoria libera nel 16K non c’è né 
molta (10K scarsi) e i Microdrive sono 
fantastici quando hanno lo spazio suf- 
ficiente per funzionare, ma possono 
creare un’infinità di problemi (li abbia- 
mo sperimentati simulando una me- 
moria piena con l'abbassamento della 
RAMTÒP) se subiscono costrizioni. 

Conclusione 

Il salto qualitativo che lo Spectrum 
compie con l'adozione dei Microdrive 
è indubbiamente notevole; si passa in- 
fatti da un suo uso forzatamente “gio- 
coso” alla possibilità di renderlo utile 
per tanti impieghi “seri ”. 

Purtroppo l’impostazione data al mer- 
cato italiano degli “home", propagan- 
dati praticamente come videogiochi 
non ha portato gradualmente l utilizza- 
tore a sentire la necessità di cimentarsi 
in usi più sofisticati e costruttivi delle 
loro macchine come è avvenuto 
all'estero (Britannia docet). Il prezzo 
delle cartucce, poi, non è che aiuti... 
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Decido, quindi sono 
un computer 


• • • 

di David Janda 

trad. e adatt. di Lucio Bragagnolo 



Come i calcolatori (e i computer 
Sinclair in particolare) eseguono 
test per poi prendere una decisio- 
ne in base al risultato. 


C os’è un linguaggio di programma- 
zione? O meglio, che cosa qualifica 
un linguaggio di programmazione co- 
me tale? La risposta è: la sua capacità 
di compiere dei test e successivamente 
compiere azioni strettamente legate 
all’esito degli stessi. Da qui partono le 
fondamenta di tutti i linguaggi di pro- 
grammazione, e questo è il punto di 
inizio a partire dal quale è possibile 
programmare i calcolatori in modo ta- 
le che essi possano avere un comporta- 
mento flessibile di fronte alle più sva- 
riate situazioni. 

Per chiarire le cose, occorrerebbe 
guardare un programma BASIC sotto 
due punti di vista differenti - uno ri- 
guardante l’aspetto fisico del program- 
ma, e l’altro il suo aspetto logico. Il 
programma uno, semplicissimo ed 
elementare, chiede all’operatore di in- 
serire due numeri che vengono succes- 
sivamente addizionati, sottratti e mol- 
tiplicati fra di loro, dopo di che il cal- 
colatore provvede a stampare i vari ri- 
sultati. 

Notate che in questo programma non 
vengono prese decisioni di alcun gene- 
re, e che la sequenza delle varie opera- 
zioni compiute cioè il “diagramma di 
flusso” segue rigorosamento un anda- 
mento “top-down”, ossia dall’alto ver- 
so il basso. Ciò significa che questo 
programma non è molto fessibile; può 
infatti eseguire solamente le operazio- 
ni che noi abbiamo precedentemente 
programmato, utilizzando dati come i 
numeri che gli vengono forniti per 
mezzo delle istruzioni INPGT. 

Costrutti di controllo 

Il programma due presenta una certa 
differenza dal precedente. Abbiamo in- 
fatti introdotto il costrutto “IF 
condizione/i THEN azione/i”, così che 


possiamo cominciare a confrontare i 
dati che vengono immessi, per poi ef- 
fettuare determinare azioni sulla scor- 
ta dei risultati dei nostri test. Notiamo 
però due cose: primo, l’andamento (il 
flusso) del programma è ancora di tipo 
sequenziale, dall’alto in basso; secon- 
do, l’istruzione IF viene usata in modo 
abbastanza primitivo. E possibile uti- 
lizzarla molto meglio, come si può ve- 
dere nel listato numero tre. In esso, in- 
vece di usare il costrutto IF...THEN per 
compiere una sola azione in seguito 
all’esito del test (come accadeva nel 
programma due), vengono usate dopo 
THEN istruzioni GO TO o GOSGB, che 
danno luogo ai cosidetti salti condizio- 
nati; con essi, il risultato del test porta 


all’esecuzione di un determinato grup- 
po di linee di programma. 

I calcolatori Sinclair (con l’eccezione 
dell ultimo QL) non offrono molti co- 
strutti di controllo, per fornire unica- 
mente l’essenziale. Altri computer, in- 
fatti (ad esempio l’Acorn BBC, diffusis- 
simo in Gran Bretagna ma praticamen- 
te assente dalle nostre parti) lavorano 
su dialetti BASIC molto più dotati a 
questo proposito; il BASIC Sinclair è 
comunque sufficiente per consentirci 
di emulare istruzioni da esso non pre- 
viste. 

Per quanto riguarda lo ZX81 , l’istruzio- 
nei IF ha la forma “IF condizione/i 
THEN azione”. È possibile usarla per 
determinare l’esecuzione di gruppi di 
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linee a piacere, "chiamandole” attrave- 
rso GOSGB o GO TO. Cina terza istru- 
zione utilizzabile è la GSR, che chiama 
le linee desiderate attraverso il lin- 
guaggio macchina, per poi ritornare al 
BASIC. 

Ciò è realizzabile ordinando l’esecuzio- 
ne delle variabili mediante la linea LET 
A = GSR N, dove A è la variabile nume- 
rica e N l’indirizzo di partenza del pro- 
gramma. Terminata l’esecuzione di 
quest’ultimo e restituito il controllo al 
BASIC, alla variabile verà assegnato il 
valore contenuto nella coppia di regi- 
stri BC. 

Può sembrare una cosa sostanzialmen- 
te inutile ma se, per esempio, dispone- 
te di una velocissima routine di genera- 
zione di numeri casuali scritta in lin- 
guaggio macchina, potete utilizzarla 
nella maniera sopra descritta con un 
sensibile risparmio di tempo, sempli- 
cemente predisponendo la memorizza- 
zione di numeri generati in BC. 

E lo Spectrum? 

Quanto detto finora si applica anche 
allo Spectrum, sia pure con qualche 
differenza. Intanto, diversamente da 
quanto accadeva sullo ZX81, sono am- 
messe linee contenenti più di una azio- 
ne (vedere il diagramma 1); in più, la 
funzione GSR ha qui anche un altro uti- 
lizzo connesso, come forse sapete, alla 
generazione dei caratteri grafici. 

Ora, tornando in argomento, cose 
esattamente una “condizione” e cosa 
ha a che fare con le decisioni? Per co- 
minciare, è meglio esaminare l’intera 
struttura del costrutto IF...THEN... EL- 
SE, dimenticandoci per un attimo del- 
le limitazioni di ZX81 e Spectrum. 
Quando, durante l’esecuzione del pro- 
gramma, viene raggiunta una linea co- 
me IF a = b THEN..., il computer con- 
fronta tra loro le due variabili e, se non 
sono uguali, ignora completamente il 
resto della linea, qualunque sia il nu- 
mero di istruzioni in essa contenuta, 
per passare a quella successiva. Que- 
sto esempio, per lo Spectrum, servirà a 
chiarire le cose: 

10 LET a = 1 

20 1F a = 2 THEN PRINT a: PRINT "OK” 
30 PRINT "LINEA SGCCESSIVA” 

(sullo ZX81 è sufficiente eliminare 
PRINT "OK”). In esecuzione, l’esito del 
test sarà negativo e il valore di a non 
verrà stampato, né lo sarà la scritta 
"OK”, e il programma passerà alla li- 
nea seguente. In tutto questo, ripetia- 


Diagramma 

1 


ZX81 



Linea 

successiva 


SPECTRUM 



Linea 

successiva 


mo l’unica differenza tra lo Spectrum e 
ZX81 sta nel fatto che il primo può ave- 
re più di una istruzione dopo una IF, 
come è visibile nel diagramma. In real- 
tà il computer, analizzando una condi- 
zione, non sta controllando se, per di- 


re, A* 10 = 1 o “Pinuccio” ( ) "Cadetto”; 
ciò che sta facendo è una comparazio- 
ne che darà come risultato "vero o fal- 
so” o, per essere più precisi, ‘To "0”. 
Questo vale sia nel caso di un unico 
test come in linee più complesse come 
IF a = b AND c = d THEN...: per quante 
analisi vengano fatte il risultato finale 
sarà uno solo. 

Dando a un esito "vero” il valore 1 e ad 
un esito “falso” il valore 0 possiamo 
ora considerare cosa accade quando 
abbiamo una condizione che contenga 
un operatore logico - AND, OR, o NOT. 
Prendiamo quattro variabili a, b, c, d, 
con valore a = 1 , b = 1 , c = 2, d = 3; e 
adesso proviamo a vedere cosa succe- 
de analizzando un delle forma IF a = b 
AND c = d THEN... Per prima cosa vie- 
ne eseguito il test su a e b, che risulta 
vero (cioè 1), mentre il secondo test è 
falso - poiché c’è evidentemente diver- 
so da d - e ritorna il valore 0. Siccome 
l’operatore logico AND richiede che 
per dare come risultato 1 gli operandi 
(nel nostro caso i due test) valgano en- 
trambi 1, la nostra condizione è falsa, 
ed ha un valore 0. Ecco la “tabella del- 
la verità” completa (gli insofferenti nei 
confronti dell’algebra booleana trat- 
tengano il fiato per trenta secondi...) 
valida per l’operatore AND: 

IF 0 AND 0 THEN 0 
IF 0 AND 1 THEN 0 
IF 1 AND 0 THEN 0 
IF 1 AND 1 THEN 1 

Potete vedere come il terzo elemento 
della tabella rappresentanti il caso che 
abbiamo appena considerato. 

Ecco ora la tabella della verità per 
l’operatore OR: 

IF 0 OR 0 THEN 0 
IF 0 OR 1 THEN 1 
IF 1 OR 0 THEN 1 
IF 1 OR 1 THEN 1 

L’operatore NOT non fa altro che in- 
vertire l’esito del nostro test: NOT 1 è 
uguale a 0, e NOT 0 è uguale a 1 (ov- 
vio). 

Per concludere, diciamo che utilizzan- 
do gli operatori logici disponibili sui 
calcolatori Sinclair è possibile esegui- 
re test su ogni tipo di dati. Con un po’ 
di allenamento, imparerete anche ad 
eseguire test multipli su di una sola li- 
nea, risparmiando discrete quantità di 
memoria e salendo un altro gradino 
sulla scala in cima alla quale si trovano 
i buoni programmatori. 


Programma 1 


40 

PRINT 

ii 

" inseriscine 

un 

1 0 

REM programma con 

logica to 

50 

INPUT 

b 



p-down 


60 

PRINT 

a; "+" ; b; 

a+b 

20 

PRINT "inserisci 

un numero" 

70 

PRINT 

o • » Il . U • Il — n . 
“ / “ “ / 

a-b 




80 

PRINT 

o • n * H • U • Il — Il . 
a t r u t “ r 

a*b 

30 

INPUT a 

f 

90 

STOP 
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Programma 2 

1 0 REM programma top-down con 
decisioni 

20 PRINT "inserisci il primo n 
umero" 

30 INPUT a 

40 PRINT "e adesso inserisci i 
1 secondo" 

50 INPUT b 

60 IF a=b THEN PRINT "questi 
numeri sono uguali!" 

70 IF a<b THEN PRINT "il prim 
o numero e' piu' piccolo"'" 
del secondo" 

80 IF a>b THEN PRINT "il prim 
o numero e' piu' grande" ' "d 
el secondo" 

90 STOP 


Programma 3 


1 0 

REM decisioni 

e scelte 

20 

LET r= INT (RND* 100) 

30 

LET t=0 


40 

PRINT "Ho pensato un numero 

II 

50 

PRINT "tra 0 

e 100." 

60 

PRINT "Prova 

II 

a indovinarlo! 

70 

PRINT 


80 

GO SUB 200 


90 

IF g=r THEN 

GO TO 300 

1 00 

IF g<r THEN 

GO SUB 400 


1 1 0 

IF g>r THEN GO SUB 500 


1 20 

GO TO 80 


1 99 

REM 


200 

REM subroutine chiamata 
la linea 80 

dal 

201 

REM 


21 0 

LET t=t+l 


220 

PRINT "Dimmi il numero.. 

II 

• 

230 

INPUT g 


240 

RETURN 


299 

REM 


300 

REM subroutine chiamata 
la linea 90 

dal 

301 

REM 


31 0 

PRINT "Bravissimo!" 


320 

PRINT "ce l'hai fatta in 
t;" tentativi." 

330 

PRINT "Il numero era propri 
o " ; g ; " ! " 

340 

STOP 


399 

REM 


400 

REM subroutine chiamata 
la linea 100 

dal 

401 

REM 


41 0 

PRINT "Il mio numero e' 

' grande di" ' ; g 

piu 

420 

RETURN 


499 

REM 


500 

REM subroutine chiamata 
la linea 110 

dal 

501 

REM 


51 0 

PRINT "Il mio numero e' 

' piccolo di" ' ; g 

piu 

520 

RETURN 



I programmi “Forzaquattro" e 
“Goldrace”, entrambi per ZX81, 
pubblicati sul numero 3 di 
SCIPERSINC non sono stati 
realizzati da Marcello Spero, come 
erroneamente riportato, bensì da 
Giovanni Tisi. 

Ci scusiamo dell’errore con 
entrambi gli interessati. 


Si, U| k^l. 


1-4 15 


di Marcello Spero 



L’interfaccia 

come 

e perché 

Teoria e pratica della costruzione 
di alcuni dispositivi per lo sfrutta- 
mento ottimale del calcolatore 





L a scorsa puntata di “Nei meandri 
dello Spectrum” abbiamo esamina- 
to i vari componenti dello Spectrum, 
con particolare riguardo alla CPU ed 
alle sue funzioni; abbiamo anche visto 
come sul retro del computer siano ac- 
cessibili molti dei segnali che scandi- 
scono la “vita” della macchina. 

Questa volta esaminiamo più in detta- 
glio quali sono i modi e i mezzi di cui 
lo Spectrum dispone per collegarsi e 
comunicare con il mondo esterno, e 
perché può essere interessante sfrut- 
tarli per metterlo in collegamento con 
congegni di vario tipo. 

Il mezzo di comunicazione con Tester 
no dello Spectrum, come di qualsiasi 


altro computer, consiste in dati, cioè 
numeri, per intenderci. Numeri che, in 
forma binaria, entrano ed escono attra- 
verso otto linee, che prendono il nome 
di “bus dei dati”. Le linee sono otto 
perché questo è il numero di cifre bina- 
rie, cioè di bit, che forma un byte, 
l’unità di informazione della CPCJ dello 
Spectrum. 

Sul bus dei dati, però, si muovono an- 
che le informazioni destinate alla me- 
moria o provenienti da essa; per distin- 
guere i due tipi di destinatario o di 
“mittente” ci sono due linee apposite, 
attivate dalla CPU, l una per indicare 
che l’informazione riguarda la memo- 
ria, l’altra, per indicare che riguarda il 


mondo esterno, chiamato I/O 
(Input/Output). Rimane da determinare 
se l’informazione proviene dalla CPU o 
vi è diretta; per questo ci sono altre 
due linee, l’una per indicare che la CPU 
vuole leggere il dato, l’altra per indica- 
re che la CPU vuole scrivere il dato, che 
quindi proverrà da lei. 

Avendo fatto sapere con chi vuole ave- 
re a che fare, e se vuole inviare o rice- 
vere dati, la CPU deve anche chiarire 
quale locazione vuole nel caso della 
memoria, o quale periferica nel caso 
deiri/O. A questo è deputato un altro 
bus, il “bus degli indirizzi”, che verrà ca- 
ricato con un valore contemporanea- 
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mente al bus dei dati. Questo valore 
rappresenta l’indirizzo, sempre in forma 
binaria ma stavolta a 16 cifre cioè a due 
byte, della locazione di memoria o del- 
la periferica richiesta. 

Rivediamo il tutto dal punto di vista di 
un congegno esterno che voglia colle- 
garsi allo Spectrum e debba quindi ca- 
pire quando l’informazione sul bus dei 
dati è diretta a lui. La condizione che lo 
interessa sarà verificata se saranno at- 
tivate (cioè portate a livello logico ze- 
ro) conte mporane amente la linea I/O 
(si chiama l/QR Q) e quella di scrittura 
(si cjiiama WR), e se sul bus degli indi- 
rizzi ci sarà il suo numero. Per inviare 
un dato dov rà inve ce attendere che sia- 
no a ttivate l/ORQ e la linea di lettura 
(RD), e che il bus degli indirizzi abbia 
il suo numero. 

Un congegno che sappia leggere tutte 
queste linee, prenda in considerazione 
solo le informazioni che lo riguardano 
e attenda che il suo momento prima di 
inviarne è un “interfaccia ”. 

Un certo numero di periferiche essen- 
ziali è già collegato con lo Spectrum: 
si tratta della tastiera, del registratore 
e dell’altoparlante; altre, come la stam- 
pante ZX o i Microdrive, possono es- 
sergli collegate. Queste però possiedo- 
no già una loro interfaccia incorporata, 
che permette loro di funzionare senza 
problemi. Quello che noi ci proponia- 
mo, invece, è la realizzazione di un’in- 
terfaccia che consenta il collegamento 
a congegni non originariamente con- 
cepiti per funzionare in unione con lo 
Spectrum. Per avere chiaro il motivo 
che rende attraente un simile lavoro, 
vediamo un esempio. 

Supponiamo di voler dotare la porta di 
casa nostra di una serratura a combi- 
nazione, formata da una pulsantiera 
esterna, collegata ad un apposito con- 
gegno interno che fa scattare la serra- 
tura solo se è stata composta la combi- 
nazione corretta. Oltre ad una pulsan- 
tiera ed una serratura elettrica, ci oc- 
corre un apposito circuito che riceva i 
segnali elettrici provenienti dai tasti, 
ne controlli la combinazione ed even- 
tualmente dia tensione alla serratura. 
Volendo realizzare qualcosa di vera- 
mente sicuro, però, bisognerebbe che 
questo circuito, pur non reagendo ad 
una prima combinazione sbagliata, do- 
po un determinato numero di tentativi 
infruttuosi non ne accettasse più altre 
per un certo tempo, così da scoraggia- 
re eventuali malintenzionati. Per que- 
sto dovrebbe essere dotato di un tem- 
porizzatore, che parta alla prima com- 
binazione sbagliata. 

Fatti i conti ci si rende conto che la 
spesa per un simile apparecchio non 
sarebbe indifferente; oltretutto se un 
giorno decidessimo che questo tipo di 
serratura non è più adatto alla nostra 
casa dovremmo buttare tutto, perché 
un congegno così specifico ben diffi- 
cilmente potrà essere adattato ad un 
altro scopo. 

Supponiamo invece di realizzare la 


medesima serratura servendoci dello 
Spectrum. Oltre ovviamente, alla pul- 
santiera ed alla serratura, non ci serve 
nient’altro: ci basta il computer e la 
sua interfaccia. Un apposito program- 
ma, infatti, leggerà lo stato della pul- 
santiera, lo paragonerà alla combina- 
zione esatta ed eventualmente invierà 
un segnale che farà scattare la serratu- 
ra. 

La protezione a tempo vista prima di- 
venta di realizzazione semplicissima 
senza alcuna aggiunta di materiale; 
sempre senza aggiunta di materiale so- 
no possibili molti servizi aggiuntivi, 
quali una combinazione personalizzata 
per ciascun membro della famiglia con 
relativa registrazione delle entrate, o 
combinazioni che aprono la porta solo 
entro orari determinati. Altre aggiunte 
o modifiche sarebbero sempre possibi- 
li, mentre nel caso di una eliminazione 
di tutto il sistema l’unica cosa da butta- 
re (non è detto) sarebbe la pulsantiera. 
Il nostro scopo non è certamente la rea- 
lizzazione di serrature a combinazione, 
ma quello che l’esempio voleva mette- 
re in luce è che utilizzando un compu- 
ter in un sistema di controllo esterno si 
realizza un notevole risparmio, ed una 
grande versatilità d'uso. In pratica un 
programma fa le veci di un circuito, 
cioè il software consente di risparmia- 
re sullhardware. 

Si apre così la strada ad una moltitudi- 
ne di congegni, dai più utili ai più inu- 
tili: dal combinatore telefonico che, ri- 
cevuto da tastiera il nome e cognome 
di una persona, ne trova il numero e lo 
compone, ripetendolo finché non lo 
trova libero, all’antifurto più sofistica- 
to ed imbattibile, all'apparecchio che 
al mattino accende la caffettiera elet- 
trica e ci dice sullo schermo se pioverà 
o meno, le possibilità sono infinite. 
Esiste poi tutta una gamma di informa- 
zioni che non sono espresse come va- 
lori numerici distinti, cioè acceso o 
spento, uno o zero, dieci o undici, ma 
con quantità variabili in modo conti- 
nuo. Per intenderci, pensate al livello 
dell’acqua in una vasca che si riempie, 
o alla temperatura. In questi casi per 
rendere le informazioni accessibili al 
computer occorre trasformarle in una 
successione di valori discreti, necessa- 
riamente approssimata alla variazione 
continua. L’apparecchio che opera 
questa trasformazione si chiama con- 
vertitore analogico/digitale, abbrevia- 


to in A/D; analogico è infatti un segna- 
le che può variare in modo continuo, 
mentre è digitale un segnale che può 
assumere solo un certo numero di va- 
lori discreti. 

Con un apparecchio di questo tipo, 
che arriveremo a fabbricarci, avremo 
possibilità ancora diverse: misurazione 
di temperature, voltmetri, penne otti- 
che, e così via. 

Ma torniamo con i piedi per terra, e ve- 
diamo quali sono i componenti che ci 
servono per realizzare una semplice in- 
terfaccia. La nostra prima realizzazio- 
ne sarà improntata alla masssima sem- 
plicità; avrà la possibilità di collegarsi 
ad un solo congegno esterno, e quindi 
dovrà riconoscere un solo indirizzo, 
che per semplicità sarà costituito da 
un solo bit. Quando quel bit sarà atti- 
vato, cioè avrà valore logico zero, il 
“port” cioè la via di comunicazione, da 
noi creato sarà selezionato. Natural- 
mente dovranno essere lette contem- 
po raneamente__t ut teje linee necessa- 
rie, cioè I/O, RD e WR. 

In pratica abbiamo bisogno di ricavare 
quattro segnali in ingresso due segnali 
in uscita, che diano le informazioni, 
che chiameremo OKINPGT e OKOGT- 
PGT, per attivare l’una o l'altra sezione 
dell’interfaccia. Questo risultato lo si 
ottiene usando delle “porte nor”, cioè 
dei circuiti che eseguono l’operaziono 
logica ‘ or” sui segnali in ingresso, e 
quindi l’operazione logica “not” sul ri- 
sultato ottenuto. In tabella 1 vedete la 
cosiddetta "tavola di verità’’ della fun- 
zione nor a tre ingressi, che è appunto 
quella che ci interessa. In pratica colle- 
gheremo le varie linee alle due porte 
logiche in modo che OKINPGT ven- 
ga attivato (in questo caso l’attivazione 
corrisponde al livello logico 1) qu ando 
I/O, il bit del bus indirizzi e RD sono 
tutti tre a livello logico zero; OKOGT- 
PGT s arà invece attivato quando sono 
a zero I/O, il bit del bus indirizzi e WR. 
OKINPGT abiliterà un apposito circui- 
to a trasmettere il dato che aveva pre- 
cedentemente immagazzinato, mentre 
OKOGTPGT ne abiliterà un altro a ‘‘la- 
sciar passare” l'informazione prove- 
niente dal bus dati. 

Abbiamo così tracciato lo schema del- 
la nostra interfaccia. La prossima volta 
vedremo la parte pratica del progetto, 
ossia la realizzazione vera e propria, e 
vi accorgerete che queste cose sono 
ben più complicate a dirsi che a farsi. 


TAVOLA DI VERITÀ DELLA FUNZIONE 

INGRESSI 

GSCITA 

LOGICA NOR A TRE INGRESSI: 

0 

0 

0 

1 


1 

0 

0 

0 


0 

1 

0 

0 


1 

1 

0 

0 


0 

0 

1 

0 


1 

0 

1 

0 


0 

1 

1 

0 


1 

1 

1 

0 


tabella 1 
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ERRATA CORRIGE Il labirinto di ''Anellide” 


Il listato del gioco “Anellide” compar- 
so su SUPERSINC numero 3 a pagina 
48 è stato pubblicato privo di dati ne- 
cessari per la rappresentazione del la- 
birinto sullo schermo. È possibile rime- 
diare all’inconveniente in vari sistemi: 
1) cancellate la linea 9999 del listato 
originale e salvatelo con GO TO 9998. 

Ora date pure NEW e scrivete un pro- 
grammino caricatore, che servirà a in- 
serire nelle locazioni da 3 1 000 a 3 1 639 
(quelle esaminate dal programma per 
mezzo delle linee 80/83) i codici dei ca- 
ratteri occorrenti per disegnare il labi- 
rinto. Un esempio può essere 

10 FOR i = 31000 TO 31639 
20 INPUT x 

30 IF x() 32 AND (x(144 OR x)164) 
THEN BEEP 1,1: PRINT ‘ Hai sbaglia- 
to!”: GO TO 20: REM “sicura” per limi- 
tare la possibilità di errori 

40 PRINT i,x 


50 POKE i ,x, 

60 NEXT i 

Date il RUN e inserite, con somma pa- 
zienza. i codici (che potete leggere in 
questa pagina). Arrivati alla fine... vi 
conviene controllare tutto utilizzando lo 
stesso programmino, privato delle linee 
20,30,50 e con la linea 40 modificata 
in 40 PRINT i, PEEK i. Se volete evita- 
re la domandina “scroll?”, potete inse- 
rire una linea 45 INPUT INKEY$ = “y” 
o, meglio ancora, 45 POKE 23692.255. 
Terminato? Bene! Non vi vresta che sal- 
vare il tutto di seguito al listato origina- 
le, mediante un SAVE “labirinto'’ CO- 
DE 31000,640. Digitate RAND USR 0 
e caricate “Anellide", ora perfettamen- 
te funzionante. 2) Inserite gli stessi co- 
dici, ma direttamente nel corpo del pro- 
gramma, sotto forma di linee DATA, 
modificando il listato come segue: 

80 FOR n = 1 TO 640 

81 READ c 


83 PRINT INK 3; CHR$ c:: NEXT N 

85 DATA... 

86 DATA... 

87 DATA... 

e così via. In questo caso, dovete can- 
cellare la linea 9999 e il LOAD “ " CO- 
DE della linea 1. per poi salvare il gio- 
co col solito GO TO QQQP In^no è 
possibile ricavare il labirinto dalla foto 
pubblicata noM’articnlo *nd'\ 'duando i 
caratteri grafici utilizzati per poi crea- 
re alcune stringhe (contenenti ognuna 
una o più righe del labirinto) da inseri- 
re nel programma tra la linea 70 e la li- 
nea 96, accompagnate da istruzioni 
PRINT. Le linee da eliminare sono que- 
ste: 80,81 ,83.9999 (più il LOAD “ ” CO- 
DE di linea 1 ) e la procedura di registra- 
zione consiste nel solito GO TO 9998. 
Sperando di avere risolto con questa 
spiegazione ogni problema, ci scusiamo 
cor:, tutti i lettori per questo spiacevole 
incidente. 


Anellide 

versione per ZX Spectrum 16K/48K 
lista dei codici contenuti 
nelle locazioni 31000/31639 


31 000 

1 50 

31 037 

32 

31 001 

1 49 

31 038 

1 48 

31 002 

1 49 

31 039 

32 

31 003 

1 49 

31 040 

32 

31 004 

1 49 

31 041 

32 

31 005 

1 49 

31 042 

1 45 

31 006 

1 54 

31 043 

32 

31 007 

1 49 

31 044 

32 

31 008 

1 49 

31 045 

32 

31 009 

1 49 

31 046 

1 48 

31 01 0 

1 54 

31 047 

32 

31 01 1 

1 49 

31 048 

32 

31 01 2 

1 49 

31 049 

32 

31 01 3 

1 49 

31 050 

1 48 

31 01 4 

1 54 

31 051 

32 

31 01 5 

1 49 

31 052 

1 45 

31 01 6 

1 49 

31 053 

32 

31 01 7 

1 49 

31 054 

32 

31 01 8 

1 51 

31 055 

32 

31 01 9 

32 

31 056 

1 48 

31 020 

1 50 

31 057 

32 

31 021 

1 49 

31 058 

32 

31 022 

1 49 

31 059 

32 

31 023 

1 49 

31 060 

32 

31 024 

1 54 

31 061 

32 

31 025 

1 49 

31 062 

32 

31 026 

1 49 

31 063 

1 48 

31 027 

1 49 

31 064 

1 48 

31 028 

1 49 

31 065 

32 

31 029 

1 49 

31 066 

1 47 

31 030 

1 49 

31 067 

1 54 

31 031 

1 51 

31 068 

1 46 

31 032 

1 48 

31 069 

32 

31 033 

32 

31 070 

1 48 

31 034 

32 

31 071 

32 

31 035 

32 

31 072 

1 44 

31 036 

32 

31 073 

, 32 


31 074 

32 

31 

1 

1 7 

1 49 

31 075 

32 

31 

1 

1 8 

1 57 

31 076 

1 44 

31 

1 

1 9 • 

32 

31 077 

32 

31 

1 

20 

1 45 

31 078 

1 48 

31 

1 

21 

32 

31 079 

32 

31 

1 

22 

1 48 

31 080 

1 44 

31 

1 

23 

32 

31 081 

32 

31 

1 

24 

32 

31 082 

1 48 

31 

1 

25 

32 

31 083 

32 

31 

1 

26 

32 

31 084 

32 

31 

1 

27 

1 48 

31 085 

32 

31 

1 

28 

1 56 

31 086 

1 44 

31 

1 

29 

1 46 

31 087 

32 

31 

1 

30 

32 

31 088 

1 48 

31 

1 

31 

32 

31 089 

32 

31 

1 

32 

32 

31 090 

1 50 

31 

1 

33 

1 47 

31 091 

1 49 

31 

1 

34 

1 52 

31 092 

1 49 

31 

1 

35 

32 

31 093 

1 46 

31 

1 

36 

32 

31 094 

32 

31 

1 

37 

32 

31 095 

1 48 

31 

1 

38 

32 

31 096 

1 48 

31 

1 

39 

32 

31 097 

32 

31 

1 

40 

32 

31 098 

32 

31 

1 

41 

32 

31 099 

1 45 

31 

1 

42 

1 48 

31 1 00 

32 

31 

1 

43 

32 

31 1 01 

32 

31 

1 

44 

32 

31 1 02 

1 48 

31 

1 

45 

32 

31 1 03 

32 

31 

1 

46 

32 

31 1 04 

1 53 

31 

1 

47 

32 

31 1 05 

1 49 

31 

1 

48 

32 

31 1 06 

1 49 

31 

1 

49 

.32 

31 1 07 

1 49 

31 

1 

50 

1 48 

31 1 08 

1 52 

31 

1 

51 

32 

31 1 09 

32 

31 

1 

52 

32 

311 1 0 

1 48 

31 

1 

53 

32 

31111 

32 

31 

1 

54 

1 48 

31 1 1 2 

1 45 

31 

1 

55 

32 

31113 

32 

31 

1 

56 

1 44 

3111 4 

1 45 

31 

1 

57 

32 

31115 

32 

31 

1 

58 

1 50 

31 1 1 6 

1 47 

31 

1 

59 

1 57 
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1 48 

32 

32 

1 44 

32 

32 

32 

32 

1 44 

32 

1 44 

32 

1 44 

32 

1 45 

32 

1 47 

1 49 

1 46 

32 

1 44 

32 

1 45 

32 

1 44 

32 

1 45 

32 

1 45 

32 

1 53 

1 57 

1 48 

32 

1 47 

1 55 

1 49 

1 49 

1 49 

1 49 

1 52 

32 

1 48 

32 

1 48 

32 

32 

32 

32 

32 

32 

32 

1 48 

32 

32 

32 

1 48 

32 

32 

32 

32 

32 

32 

1 48 

1 48 

32 

32 

32 

32 

32 

32 


31 231 


32 

31 232 


32 

31 233 


32 

31 234 


1 48 

31 235 

• 

32 

31 236 


1 53 

31 237 


1 49 

31 238 


1 46 

31 239 


32 

31 240 


1 47 

31 241 


1 49 

31 242 


1 51 

31 243 


32 

31 244 


1 45 

31 245 


32 

31 246 


1 47 

31 247 


1 49 

31 248 


1 55 

31 249 


1 51 

31 250 


32 

31 251 


1 50 

31 252 


1 49 

31 253 


1 46 

31 254 


32 

31 255 


1 48 

31 256 


1 56 

31 257 


1 49 

31 258 


1 49 

31 259 


1 49 

31 260 


1 51 

31 261 


32 

31 262 


1 50 

31 263 


1 46 

31 264 


32 

31 265 


1 47 

31 266 


1 52 

31 267 


32 

31 268 


32 

31 269 


32 

31 270 


32 

31 271 


32 

31 272 


32 

31 273 


32 

31 274 


1 48 

31 275 


32 

31 276 


32 

31 277 


32 

31 278 


32 

31 279 


32 

31 280 


32 

31 281 


1 45 

31 282 


32 

31 283 


1 45 

31 284 


32 

31 285 


32 

31 286 


32 

31 287 


1 48 

31 288 


1 48 

31 289 


32 

31 290 


32 

31 291 


32 

31 292 


T45 

31 293 


32 

31 294 


1 48 

31 295 


32 

31 296 


32 

31 297 


32 

31 298 


32 

31 299 


32 

31 300 


1 50 

31 301 


1 49 


31-302 

1 49 

31 303 

1 49 

31 304 

1 46 

31 305 

32 

31 306 

1 48 

31 307 

32 

31 308 

1 44 

31 309 

32 

31 31 0 

1 47 

31 31 1 

1 51 

31 31 2 

32 

31 31 3 

32 

31 31 4 

32 

31 31 5 

32 

31 31 6 

32 

31 31 7 

1 44 

31 31 8 

32 

31 31 9 

1 48 

31 320 

1 48 

31 321 

32 

31 322 

1 44 

31 323 

32 

31 324 

32 

31 325 

32 

31 326 

1 48 

31 327 

32 

31 328 

1 47 

31 329 

1 49 

31 330 

1 51 

31 331 

32 

31 332 

1 48 

31 333 

32 

31 334 

32 

31 335 

32 

31 336 

32 

31 337 

32 

31 338 

1 48 

31 339 

32 

31 340 

1 48 

31 341 

32 

31 342 

32 

31 343 

1 56 

31 344 

1 49 

31 345 

1 49 

31 346 

1 49 

31 347 

1 51 

31 348 

32 

31 349 

1 48 

31 350 

32 

31 351 

1 48 

31 352 

1 45 

31 353 

32 

31.354 

1 53 

31 355 

1 49 

31 356 

1 46 

31 357 

32 

31 358 

1 48 

31 359 

32 

31 360 

32 

31 361 

32 

31 362 

1 45 

31 363 

32 

31 364 

1 45 

31 365 

32 

31 366 

1 44 

31 367 

32 

31 368 

1 44 

31 369 

32 

31 370 

1 45 

31 371 

32 

31 372 

1 53 


31 373 

1 46 

31 374 

32 

31 375 

1 45 

31 376 

32 

31 377 

32 

31 378 

32 

31 379 

1 45 

31 380 

32 

31381 

1 48 

31 382 

32 

31 383 

1 45 

31 384 

32 

31 385 

32 

31 386 

32 

31 387 

32 

31 388 

32 

31 389 

32 

31 390 

1 53 

31 391 

1 49 

31 392 

1 51 

31393 

32 

31 394 

32 

31 395 

32 

31 396 

32 

31 397 

32 

31 398 

1 48 

31 399 

32 

31 400 

1 48 

31 401 

32 

31 402 

32 

31 403 

32 

31 404 

32 

31 405 

32 

31 406 

32 

31 407 

32 

31 408 

32 

31 409 

1 44 

31 41 0 

32 

31 41 1 

32 

31 41 2 

32 

31 41 3 

1 48 

31 41 4 

32 

31 41 5 

32 

31 41 6 

1 44 

31 41 7 

32 

31 41 8 

1 44 

31 41 9 

32 

31 420 

1 44 

31 421 

32 

31 422 

32 

31 423 

32 

31 424 

1 48 

31 425 

32 

31 426 

1 47 

31 427 

1 49 

31 428 

1 51 

31 429 

32 

31 430 

1 45 

31 431 

32 

31 432 

1 45 

31 433 

32 

31 434 

1 47 

31 435 

1 49 

31 436 

1 49 

31 437 

1 51 

31 438 

32 

31 439 

1 44 

31 440 

32 

31 441 

1 56 

31 442 

1 49 

31 443 

1 46 

31 444 

32 
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31 445 

1 45 

31 446 

32 

31 447 

1 44 

31 448 

1 48 

31449 

32 

31 450 

1 48 

31 451 

32 

31 452 

1 53 

31 453 

1 49 

31 454 

1 46 

31 455 

32 

31 456 

1 48 

31 457 

32 

31 458 

32 

31 459 

32 

31 460 

1 48 

31 461 

32 

31 462 

32 

31 463 

32 

31 464 

32 

31 465 

32 

31 466 

32 

31 467 

32 

31 468 

32 

31 469 

1 45 

31 470 

32 

31 471 

1 45 

31 472 

32 

31 473 

1 48 

31 474 

32 

31 475 

32 

31 476 

32 

31 477 

32 

31 478 

32 

31 479 

1 48 

31 480 

1 48 

31 481 

32 

31 482 

1 48 

31 483 

32 

31 484 

32 

31 485 

32 

31 486 

32 

31 487 

32 

31 488 

1 56 

31 489 

1 49 

31 490 

1 46 

31 491 

32 

31 492 

1 45 

31 493 

32 


31 494 

1 44 

31 495 

32 

31 496 

1 50 

31 497 

1 46 

31 498 

32 

31 499 

1 44 

31 500 

32 

31 501 

32 

31 502 

32 

31 503 

32 

31 504 

32 

31 505 

1 45 

31 506 

32 

31 507 

1 47 

31 508 

1 49 

31 509 

1 46 

31 51 0 

32 

31 51 1 

1 48 

31 51 2 

1 48 

31 51 3 

32 

31 51 4 

1 48 

31 51 5 

32 

31 51 6 

1 44 

31 51 7 

32 

31 51 8 

1 44 

31 51 9 

32 

31 520 

1 48 

31 521 

32 

31 522 

32 

31 523 

32 

31 524 

32 

31 525 

32 

31 526 

1 48 

31 527 

32 

31 528 

1 48 

31 529 

32 

31 530 

32 

31 531 

1 48 

31 532 

32 

31 533 

1 44 

31 534 

32 

31 535 

1 44 

31 536 

32 

31 537 

32 

31 538 

32 

31 539 

32 

31 540 

32 

31 541 

32 

31 542 

32 


31 543 

1 48 

31 544 

1 48 

31 545 

32 

31 546 

1 45 

31 547 

32 

31 548 

1 45 

31 549 

32 

31 550 

1 48 

31 551 

32 

31 552 

1 45 

31 553 

32 

31 554 

1 44 

31 555 

32 

31 556 

1 47 

31 557 

1 49 

31 558 

1 52 

31 559 

32 

31 560 

1 45 

31 561 

32 

31 562 

1 47 

31 563 

1 52 

31 564 

32 

31 565 

1 48 

31 566 

32 

31 567 

1 45 

31 568 

32 

31 569 

1 44 

31 570 

32 

31 571 

1 47 

31 572 

1 49 

31 573 

1 46 

31 574 

32 

31 575 

1 48 

31 576 

1 48 

31 577 

32 

31 578 

32 

31 579 

32 

31 580 

32 

31 581 

32 

31 582 

1 48 

31 583 

32 

31 584 

32 

31 585 

32 

31 586 

1 48 

31 587 

32 * 

31 588 

32 

31 589 

32 

31 590 

32 

31 591 

32 


31 592 

32 

31 593 

32 

31 594 

32 

31 595 

32 

31 596 

32 

31 597 

1 48 

31 598 

32 

31 599 

32 

31 600 

32 

31 601 

1 48 

31 602 

32 

31 603 

32 

31 604 

32 

31 605 

32 

31 606 

32 

31 607 

1 48 

31 608 

1 53 

31 609 

1 49 

31 61 0 

1 49 

31 61 1 

1 49 

31 61 2 

1 49 

31 61 3 

1 49 

31 61 4 

1 55 

31 61 5 

1 49 

31 61 6 

1 49 

31 61 7 

1 49 

31 61 8 

1 55 

31 61 9 

1 49 

31 620 

1 49 

31621 

1 49 

31 622 

1 49 

31 623 

1 49 

31 624 

1 49 

31 625 

1 49 

31 626 

1 46 

31 627 

32 

31 628 

1 47 

31 629 

1 55 

31 630 

1 49 

31 631 

1 49 

31 632 

1 49 

31 633 

1 55 

31 634 

1 49 

31 635 

1 49 

31 636 

1 49 

31 637 

1 49 

31 638 

1 49 

31 639 

1 52 


leggete 
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Piccola guida 
all’input 
dei programmi 


* programmi pubblicati da SGPERSINC sono stati 
1 accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 

Nel caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 

Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Nel caso dello ZX SPECTRGM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRGM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a 8 e gli stessi “shif- 
tati”) e una serie di caratteri definibili dall’utente 
nell’ambito di un programma (le lettere da A a G). 

In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Ad esempio |G4l significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica |SG2|, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 

0 SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio |8G5j significa che il tasto grafico 5 
va digitato 8 volte e analogamente |4SG1 1 indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

1 caratteri grafici definibili (le lettere da A a G in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Quando leggete ] 

Premete 

Vedrete 


Quando leggete | 

Premete 

Vedrete 


{Gl} 
{G2 } 

• (G3 } 
{G4 } 

{ G 5 } 
{G6 } 

{ G 7 } 

{ G 8 } 

{ SG1 } 
{SG2} 
{SG3 } 
{ SG4 } 
{SG5} 
{SG6 } 
{SG7 } 
{SG8 } 


OH 

EH 

l 3 

OS 

oj 

ES 


un 


Se non siete 
già in modo 
G, entrateci 
schiacciando 
contempora- 
neamente 
CAPS SHIFT 
e 9 


CAPS 

■SH1EI.. 


CAPS 

SHIFT 


CAPS 

SHIFT 


SH) FT _ 


SHlfT, 


CAPS 

SHIFT 


CAPS 

SHIFT 


CAPS 


■SHIFT. 


03 

EB 

l 3 H 

EH 

EU 

OS 

EH 

OD 



Se dovete 
uscire dai 
modo G, 
schiacciate 9 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 


Q 

R 

S 

T 

U 



EZ 

□ 


E= 

□ 


E= 

□ 


EZ 

□ 


ez 

□ 


EZ 

□ 


EZ 

□ 


e: 

n — 

□ 

— | 

Se non siete 

1! 

y 

1 

già in modo 

|J 


G, entrateci 

l 

—1 

schiacciando 

e: 

| 

contempora- 

1 

neamente 

i 

— i 

CAPS SHIFT 

IL 


e 9 

L. 

l 


IM 

| 


E 

EZ 

1 

□ 


EZ 

□ 


EZ 

□ 


EZ 

□ 


EZ 

□ 


EZ 

□ 


O 

□ 


|u — 

□ 


Simbolo grafico 
definito nel 
programma in uso. 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 







Un piccolo ma efficiente data base 
a vostra disposizione 

Q uesto programma gestisce una ba- 
se di dati, cioè consente una rac- 
colta di informazioni relative a una da- 
ta applicazione (rubriche telefoniche, 
biblioteca di casa, elenco dei program- 
mi, ecc.). Ogni informazione è racchiu- 
sa in un record (un numero telefonico, 
un libro, un programma..) composto 
da campi, ovvero informazioni più spe- 
cifiche sul soggetto in esame. Nell’ar- 
chivio della biblioteca domestica ci sa- 
ranno così diversi record ognuno con- 
tenente un libro; in tutti i record ci sarà 
la medesima strutturazione in campi 
(titolo del libro, autore, editore, prez- 
zo, data di acquisto, eventuale presti- 
to, numero di pagine e così via). L’ar- 
chivio può essere aggiornato modifi- 
cando, aggiungendo o togliendo re- 
cord; è possibile poi rintracciare un re- 
cord indicandone il contenuto di un 
campo. 

Non spendiamo altre parole, poiché il 
programma già di per sé stesso abbon- 
da in chiarimenti e spiegazioni. Quan- 
to al listato, le REM in esso contenute 
illustrano i compiti svolti dalle varie 
routine presenti, favorendone la com- 
prensione. 



Archivio 

versione per ZX Spectrum 16K/48K 

30 PRINT "Questo programma con 
sente la creazione di li 
ste di record. La definiz 
ione della loro quant 

ita' e lunghezza e' a 
vostro piacere, sempre nei 
limiti imposti dalla R 
AM a disposizione. Per 

i meno espertidiremo che u 
n record e' una serie d 

i informazioni omogenee su 
Ilo stesso soggetto." 


31 PRINT "Un record e' compost 

0 da campi, ognuno dei qual 

1 contiene una informazio 
ne specifica. Esempio: in un 
a rubrica telefonica può' 
esserci un campo chiamato N 
OME, un campo NUM.TEL. e co 
si' via, per una gamma di 
applicazioni limitata sol 
amente dalla vostra immagin 
azione . " 

32 PRINT #0; "premi un tasto pe 
r proseguire": PAUSE 0: 

CLS 
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33 PRINT "Una volta stabilito 

il numero dei record, i c 
ampi che li formano e 

la lunghezza di questiultim 
i, non sara' piu' possibile 
modificare la struttura di 

quell'archivio. Eviden 
temente e' possibile aver 
e su cassetta diversi arch 
ivi (gestibili uno alla vo 
Ita) strutturati in modi di 
versi."' "Nel caso che intro 
duciate un dato piu' lun 
go del consentito il compu 
ter non lo accetterà', per 
mettendovi di reinserirlo 
correttamente . " 

34 PRINT #0; "premi un tasto pe 
r proseguire": PAUSE 0 

80 CLS : LET ctr=0: LET variaz 
ione=0: LET cancellazione=0 
: LET z$= "ARCHIVIO" 

90 INPUT "quanti records? ";re 

100 INPUT "Quanti campi vuoi pe 
r record? (massimo 10) ";ca 

110 IF ca>l 0 THEN GO TO 100 
120 DIM n$ ( 1 0 , 1 0) : DIM m(10) 

125 FOR a=l TO 10: LET m(a)=l: 

NEXT a 

130 FOR a=l TO ca 
140 INPUT "nome ";(a);"' campo" 
;n$ (a) 

160 INPUT "lunghezza ";(a);"' c 
ampo (max32) " ;m (a) 

170 IF m (a) >32 THEN GO TO 160 
1 75 NEXT a 

180 DIM a$(re,m(l)): DIM b$(re, 
m ( 2) ) : DIM c$ (re ,m (3) ) : 

DIM d$ (re ,m ( 4) ) : DIM e$(re 
,m(5)): DIM f$(re,m(6)): 

DIM g$ (re ,m ( 7) ) : DIM h$(re 
,m(8)): DIM i$(re,m(9)): 

DIM 1$ (re,m (1 0) ) 

190 CLS : PRINT "1 INTRODUZIONE 

RECORD": PRINT : PRINT "2 
RICERCA RECORD": PRINT : 

PRINT "3 VARIAZIONE DI UN 
CAMPO": PRINT : PRINT "4 CA 
NCELLAZ IONE RECORD": 

PRINT : PRINT "5 SALVATAGG 
IO DATI" 

200 INPUT "Opzione scelta? ";op 
210 IF op>5 THEN GO TO 200 
220 IF op= 1 THEN GO SUB 500 
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230 IF op=2 THEN GO TO 1000 

240 IF op=3 THEN GO SUB 1500 

250 IF op=4 THEN GO SUB 2000 

260 IF op=5 THEN GO SUB 2500 

270 GO TO 1 90 
500 REM introduzione dati 
505 CLS 

51 0 LET ctr=ctr+l 
520 FOR a=l TO ca 
530 IF a=l THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 530 

535 IF a=l THEN LET a$(ctr)=r$ 

540 IF a=2 THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 540 

545 IF a=2 THEN LET b$(ctr)=r$ 

550 IF a=3 THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 550 

555 IF a=3 THEN LET c$(ctr)=r$ 

560 IF a=4 THEN INPUT (n$ (a) ) ; 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 560 

565 IF a=4 THEN LET d$(ctr)=r$ 

570 IF a=5 THEN INPUT (n$ (a) ) ; 
" " ; r$ : if LEN r$>m(a) 

THEN GO TO 570 

575 IF a=5 THEN LET e$(ctr)=r$ 

580 IF a=6 THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 580 

585 IF a=6 THEN LET f$(ctr)=r$ 

590 IF a=7 THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m (a) 

THEN GO TO 590 

595 IF a=7 THEN LET g$(ctr)=r$ 

600 IF a = 8 THEN INPUT (n$ (a) ) ; 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 600 

605 IF a=8 THEN LET h$(ctr)=r$ 


610 IF a=9 THEN INPUT (n$(a)); 
" " ; r$ : IF LEN r$>m(a) 

THEN GO TO 610 

615 IF a=9 THEN LET i$(ctr)=r$ 

620 IF a=l 0 THEN INPUT (n$(a)) 
; r$ : IF LEN r$>m(a) 

THEN GO TO 620 


625 

630 

640 

650 

660 

670 

630 

690 

695 


700 
71 0 
1 000 
101 0 
1 020 

1 030 


1 040 
1 050 


1 055 
1 058 


1 060 


1 070 


1 080 


1 090 


1 1 00 


1110 


1 1 20 


IF a=l 0 THEN LET l$(ctr)=r 

$ 

NEXT a 

LET a=ctr : GO SUB 3000 
INPUT "Sono corretti i dati 
introdotti? (s/n) ";r$ 

IF r$<>"s" AND r$<> "n" 

THEN GO TO 650 
IF r$="n" THEN GO TO 520 
INPUT "Vuoi introdurre un a 
ltro Record? (s/n) " ;r$ 

IF r$<>"n" AND r$<> J, s" 

THEN GO TO 680 
IF r$="s" AND ctr=re THEN 
PRINT #0 ; "Non c'e' piu' sp 
azio in archivio": PRINT #1 
; "premi un tasto per proseg 
uire": PAUSE 0: GO TO 190 
IF r$="s" THEN GO TO 510 
RETURN 


1130 IF SC=8 THEN FOR a=l TO et 
r: IF o$=h$ (a) THEN 
GO SUB 3000: GO TO 1170 
1140 IF sc=9 THEN FOR a=l TO et 
r : IF o$=i$ (a) THEN 
GO SUB 3000: GO TO 11 70 
1150 IF sc=l 0 THEN FOR a=l TO c 
tr : IF o$=l$ (a) THEN 
GO SUB 3000 : GO TO 11 70 
1155 NEXT a 

1160 PRINT # 0 ; " 1 1 dato introdott 
o non c'e:forsehai scritto 
male": PAUSE 200: GO TO 119 
0 

1170 IF var iazione=l THEN LET v 
ariazione=0: RETURN 
1180 IF cancellazione=l THEN 
LET cancellazione=0 : 

RETURN 

1190 INPUT "Vuoi vedere un altro 


REM ricerca record 
CLS 

FOR x=l TO ca: PRINT x;" "; 
n$ (x) : PRINT : NEXT x 
INPUT "Campo con cui cercar 
e il record? ";sc 

IF sc>ca THEN GO TO 1030 
INPUT "introduci il dato pe 
r la ricerca ";o$ 


record? (s/n) ";r$ 

1200 IF r$<> "s" AND r$<> "n" 

THEN GO TO 1190 
1210 IF r$="s" THEN GO TO 1010 
1215 LET var iazione=0 : LET canee 
llazione=0 
1 220 GO TO 1 90 
1 500 REM variazione campo 
1505 CLS 

1510 LET variazione 3 ! : 


IF LEN 0 $>m (se) THEN 
GO TO 1 050 

LET r=m(sc)-LEN o$ : LET o$= 
0 $ + " 

" ( 1 TO r ) 

IF SC=1 THEN FOR a=l TO Ct 


GO SUB 1 000 

1520 INPUT "Quale campo? (scrivi 
il numero corrispondente) 

" ; ri 

1525 IF ri>ca THEN GO TO 1520 
1 530 INPUT "Con cosa vuoi sostit 


r : IF o$=a$ (a) THEN 

GO SUB 3000: GO TO 1170 
IF sc=2 THEN FOR a=l TO 
r: IF o$=b$ (a ) THEN 
GO SUB 3000: GO TO 1170 

IF sc=3 THEN FOR a=l TO 
r: IF o$=c$ (a ) THEN 
GO SUB 3000: GO TO 1170 

IF SC=4 THEN FOR a=l TO 
r: IF o$=d$ (a ) THEN 
GO SUB 3000: GO TO 11 70 
IF sc=5 THEN FOR a=l TO 
r: IF o$=e$ (a ) THEN 
GO SUB 3000: GO TO 11 70 

IF SC=6 THEN FOR a=l TO 
r: IF o$=f $ (a ) THEN 
GO SUB 3000: GO TO 1170 
IF sc=7 THEN FOR a=l TO 
r: IF o$=g$ (a ) THEN 
GO SUB 3000: GO TO 1170 




uirlo? 

" ; S$ 



1 540 

IF ri=l 

THEN 

IF LEN s$>m ( 1 

Ct 


) THEN 

GO TO 

1 530 


1 550 

IF ri=l 

THEN 

LET a$ (a) =s$ : 



GO SUB 

3000 


ct 

1 560 

IF ri=2 

THEN 

IF LEN s$>m (2 


) THEN 

GO TO 

1 530 


1 570 

IF ri=2 

THEN 

LET b$ (a) =s$ : 



GO SUB 

3000 


ct 

1 580 

IF ri=3 

THEN 

IF LEN s$ >m ( 3 



) THEN 

GO TO 

1 530 


1 590 

IF ri=3 

THEN 

LET c$ (a ) =s$ : 

ct 


GO SUB 

3000 



1600 

IF r i=4 

THEN 

IF LEN s$>m (4 



) THEN 

GO TO 

1 530 

ct 

1 61 0 

IF ri=4 

THEN 

LET d$ (a) =s$ : 



GO SUB 

3000 



1 620 

IF ri=5 

THEN 

IF LEN s$>m ( 5 

ct 


) THEN 

GO TO 

1 530 


1630 

IF ri=5 

THEN 

LET e$ (a) =s$ : 



GO SUB 

3000 
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1 640 

1650 

1660 

1 670 

1 680 

1690 

1700 

171 0 

1 720 

1 730 

1 740 

1 750 

1 760 
1 770 
2000 
201 0 

201 5 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
21 00 
21 1 0 
21 20 
21 30 
21 35 
21 37 


per proseguir^ " : PAUSE 0 
2140 RETURN 

2500 REM salvataggio dati 
251 0 INPUT "vuoi cambiare il nom 
e di registrazione? (s/n) " 
;r$ 

2515 IF r$<>"s" AND r$<>"n" 

THEN GO TO 2510 
2520 IF r$="n" THEN SAVE z$ 

LINE 190: RETURN 


IF ri=6 THEN IF LEN s$>m(6 

2530 

INPUT "Nuovo 

nome? 

(io 

i posi 

) THEN GO TO 1530 


zioni max.) " 

? z$ 



IF ri=6 THEN LET f$(a)=s$: 

2540 

IF LEN z$>l 0 

THEN 

GO 

TO 25 

GO SUB 3000 


30 




IF ri=7 THEN IF LEN s$>m(7 

2550 

SAVE z$ LINE 

1 90 



) THEN GO TO 1530 

2555 

VERIFY z$ 




IF ri=7 THEN LET g$(a)=s$: 

2560 

RETURN 




GO SUB 3000 

3000 

REM video 




IF ri=8 THEN IF LEN S$>m(8 

3005 

PAPER 1 : CLS 

• 

• 



) THEN GO TO 1530 

301 0 

PRINT TAB 1 4 ; 

FLASH 1 : 


IF ri=8 THEN LET h$(a)=s$: 


PAPER 7; "RECORD": 

PAPER 7: 

GO SUB 3000 


PRINT 




IF ri=9 THEN IF LEN s$>m(9 

301 5 

FOR x=l TO ca 



) THEN GO TO 1530 

3020 

PRINT AT x*2 , 

0; PAPER 

6;" 

IF ri=9 THEN LET i$(a)=s$: 


( " ; x ; " 

) " : n$ (x) : 

II 

GO SUB 3000 


II 




IF ri=l 0 THEN IF LEN S$>m( 

3030 

IF x = 1 THEN 

PRINT 

AT 

3 , 0 ; a 

10) THEN GO TO 1530 


$ (a) 




IF ri=l 0 THEN LET l$(a)=s$ 

3040 

IF X=2 THEN 

PRINT 

AT 

5 f 0 ; b 

: GO SUB 3000 ' 


$ (a) 




INPUT "Vuoi variare un altr 

3050 

IF x=3 THEN 

PRINT 

AT 

o 

*!• 

o 

o campo? " ;r$ 


$ (a) 




IF r$<> "n" AND r$<>"s" 

3060 

IF x=4 THEN 

PRINT 

AT 

9 

THEN GO TO 1740 


, 0 ;d$ (a) 




IF r$="s" THEN GO TO 1520 

3070 

IF x=5 THEN 

PRINT 

AT 

1 

RETURN 


1 ,0;e$(a) 




REM cancellazione record 

3080 

IF x=6 THEN 

PRINT 

AT 

1 

LET cancellazione=l : 


3 » 0 ; f$ (a) 




GO SUB 1 000 

3090. 

»IF x=7 THEN 

PRINT 

AT 

1 

PAUSE 200 


5, 0;g$ (a) 




FOR x=a TO (ctr-1) 

31 00 

IF x=8 THEN 

PRINT 

AT 

1 

LET a$ (x) =a$ (x+1 ) 


7, 0;h$ (a) 




LET b$ (x) =b$ (x+1 ) 

31 1 0 

IF X=9 THEN 

PRINT 

AT 

1 

LET c$ (x) =c$ (x+1 ) 


9 , 0 ; i$ (a ) 




LET d$ (x) =d$ (x+1 ) 

31 20 

IF x=l 0 THEN 

PRINT 


LET e$ (x) =e$ (x+1 ) 


AT 21 , 0;1$ (a) 




LET f$ (x) =f$ (x+1 ) 

31 30 

NEXT x 




LET g$ (x) =g$ (x+1 ) 

31 40 

RETURN 




LET h$ (x) =h$ (x+1 ) 






LET i$ (x) =i$ (x+1 ) 






LET 1$ (x) =1$ (x+1 ) 






NEXT X 

i r>. 

— T _ i- -, ~ - 




LET ctr=ctr-l 

a «i 

:e=ca =e::=: 




PRINT #0; FLASH 1;" CANOE 

3 ■-.„ £* 

- i :: _ 

z — -= I 



LLAZ IONE EFFETTUATA! ": 

4U C» 

■■r-i CELLr^Z X □ ‘ ~ — = 

: I Z — “ 



PRINT #1;" premi un tasto 

fir = 






Gc z I a n € 5 I •= . * * “ 
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di Carlo e Mauro Corti 



Vivete in casa vostra le follie di 
Las Vegas, con gli amici e... lo 
Spectrum! 

I n un mondo afflitto da così tanti pro- 
blemi c’è anche il momento per gio- 
care e noi abbiamo concepito questo 
programma ponendoci il traguardo di 
farvi divertire il più possibile. Bando 
alle ciance e via con la descrizione!! 

L’ambiente che ci ricorda questo pro- 
gramma è quello che ognuno di noi 
vorrebbe vedere e di cui vorrebbe far 
parte almeno una volta nella vita: “Las 
Vegas’’. Si tratta infatti di una colora- 
tissima slot machine con la quale po- 
tremo iniziare il nostro viaggio fanta- 
stico nelle sale da gioco. Dal momento 
in cui si tira la leva cinque rulli ci mo- 
strano a turno campane, mele succose, 
ciliegie, banane e fragole lasciandoci 
fino all’ultimo col fiato sospeso nella 
speranza di aver azzeccato una combi- 
nazione. 

Quando i cinque fatidici rulli smettono 
di ruotare, subito appare sullo scher- 
mo la combinazione che abbiamo otte- 
nuto e soprattutto se la nostra giocata 
ci ha fruttato qualcosa. Come accade 
però in qualsiasi gioco di fortuna non 
sempre si può vincere, ma non tutto è 
perduto poiché quasi come Superman 
nel momento del bisogno può interve- 
nire l’opzione HOLD (tradotta in «bloc- 
ca!») che ci permette di bloccare i rulli 
che potrebbero servire per un eventua- 
le combinazione vincente. Migliore è 
la combinazione (minimo 2 campane 
accostate), maggiore naturalmente è 
l’ammontare della vincita. Volendo 
possono partecipare fino a quattro gio- 
catori contemporaneamente, e vinca il 
migliore! 

Slot Machine 
versione per ZX Spectrum 16K/48K 

Programma principale 

1 LOAD ""CODE : CLS 
2 PRINT AT 0,10; FLASH 1; 

INK 2 ; "SLOT MACHINE": 


SAVE “SLOT MAC.’’ LINE 1 
Il computer si metterà quindi in attesa 
di un altro programma. Digitate allora 
il programma di creazione di caratteri 
grafici, dando alla fine RCJN 1 160 e sal- 
vandolo di seguito al primo in questo 
modo: 

SAVE “carslot’’ CODE CISR “a”, 168 

3 PRINT INK 3; FLASH 0;"La s 
lot machine e' pronta per 
essere usata, ma voi forse 
no. Vorrei sprecare due p 
arde sull'opzione " "B 

LOCCA!"" che vi aiuterà' 
nei momenti di bisogno. Quan 


Descrizione delle variabili 

P$ 

Prende come valore stringa il numero dei giocatori 
(max 4) 

P 

Trasforma la stringa PS in valore numerico 

DIM M (P) 

In questo modo si inizializza un vettore che ha come va- 
lore il numero dei giocatori e ne contiene il punteggio 

E 

Fa parte di un ciclo FOR-NEXT con limite P 

X 

Fa parte di un ciclo FOR-NEXT con limite P e si incre- 
menta di una unità dopo ogni giocata 

V 

Serve per il controllo del numero dei giocatori rimasti 
senza soldi 

A$ 

contiene i diversi caratteri grafici (DIM A$ (5,4) ) 

B$ 

lo stesso di AS (DIM B$ (5,4) ) 

A 

serve per la stampa di rulli (DIM A (5) ) 

Q 

serve per tenere bloccati i rulli dell’HOLD (DIM Q (5)) 

W 

cifra vinta 

Q$ 

serve per il numero del rullo dell’HOLD 

M$ 

contiene i nomi dei giocatori (DIM M$ (P,10) ) 

Descrizione del programma 

22-34 

chiedono il numero e i nomi dei giocatori 

48-60 

gestiscono la casualità dell’opzione HOLD e il program- 
ma 

100-200 

opzione HOLD 

240-280 

stampa rulli 

311-480 

rotazione dei rulli 

485-700 

controllano le combinazioni ottenute, le vincite e il pun- 
teggio 

1040-8400 

stampano la slot machine, inizializzano tutte le variabili 
(comprese quelle di stampa) e controllano la risposta al 
messaggio “vuoi giocare ancora (s/n)?” 


Come salvare il programma 

Per prima cosa digitate il programma 
principale stando bene attenti a scrive- 
re le lettere corrispondenti ai caratteri 
grafici in modo grafico. 

La seconda operazione consiste nel 
salvarlo così: 
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do essa entra in funzione 
voi potete bloccare da 1 a 
5 rulli contemporaneame 
nte " 

4 PRINT INK 3; "semplicemente 

schiacciando i tasti co 
rrispondenti da 1 a 5. Ora 
siete pronti anche voi!" 

5 PRINT INK 2 ; AT 14, 7; "BUON 
DIVERTIMENTO!": PRINT 

INK 1 ;AT 20, 9; "PREMI UN TA 
STO" 

6 FOR A=0 TO 7 

7 BORDER A 

8 PAUSE 3 

9 IF INKEY$=" " THEN GO TO 1 3 


10 IF INKEY$ < > " " THEN 

GO TO 1 5 

11 GO TO 6 

1 3 NEXT A 

1 4 GO TO 6 

15 REM ******************* 

**** 

1 6 REM by C. Corti 

17 REM ***************** 

****** 

1 8 REM 2/4/84 

19 REM ********************* 

* * 

20 REM SLOT MACHINE 

{ 4G8 } 

21 REM ********************* 

* * . 

22 CLS : BORDER 7: PRINT AT 10 
,0; PAPER 4; INK 0;"ln quan 
ti volete giocare (1-4) ?" 


2 3 LET P$ = INKEY$ 

24 IF P$ <CHR$ 49 OR P$>CHR$ 52 

THEN GO TO 23 

25 IF P$<>"" THEN GO TO 27 

26 GO TO 23 

27 LET P=VAL P$ 

28 DIM M ( P) : DIM M$ (P, 1 0) 

29 LET M=50 

30 POKE 23658,8 

31 FOR Z=1 TO P 

32 INPUT "Scrivi il tuo nome (m 
ax 10 lett . ) "; LINE M$ (Z) 

33 NEXT Z 

34 POKE 23658,0 

48 GO SUB 720: 

REM GRAFICA 

49 GO SUB 290: REM ROTAZIONE 

50 IF RND> . 75 THEN GO SUB 70 
: REM HOLD 

51 IF M (X) =0 AND V<P THEN 

PRINT AT 0,0;" 

II 

55 PRINT AT X*2,17; INK 2;M$(X 
) ; AT x*2 , 27 ; " ;M (X) 

60 NEXT X: GO TO 312 

80 REM HOLD 

100 FOR T= 1 TO 7: BEEP .1,50- 

T* 7 : NEXT T 

110 PRINT AT 11,22; FLASH 1; 

INK (RND*4) ; "BLOCCA! " 

1 1 5 LET Q$=INKEY$ 

121 IF Q$ =CHR$ 13 THEN GO TO 1 
90 

124 IF Q$ <CHR$ 49 OR Q$>CHR$ 53 

THEN GO TO 115 

125 IF Q$<>" " THEN GO TO 130 

126 GO TO 115 

1 30 LET Q=VAL Q$ 

1 50 LET Q (Q) =Q 
160 BEEP 0.08, 4+Q* 2 
170 PRINT AT 11+Q,20; INK (RND* 
4); FLASH l;"Bloccato> ";Q 
180 GO TO 115 

190 BEEP 0.08,15 

1 91 PRINT AT 11,22;" 

AT 12,20;" " ; 

AT 1 3,20;" "; 

AT 14,20;" " ; AT 1 

5,20;" " ; AT 1 6,20 

• Il II 

t 

1 95 PRINT AT 19,0;" 

II 

200 GO TO 31 3 
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220 REM STAMPA RUOTE 

{ 6G8 } 

240 PRINT AT 6 , 1 ; A$ ( A ( 1 ) ) ; AT 7, 
1 ;B$ (A(l) ) 

250 PRINT AT 6 , 4 ; A$ ( A ( 2) ) ; AT 7, 
4 ;B$ ( A ( 2) ) 

260 PRINT AT 6 , 7 ; A$ ( A ( 3) ) ; AT 7, 
7;B$ ( A ( 3) ) 

270 PRINT AT 6 ,1 0 ; A$ ( A ( 4) ) ; AT 7 
,10;B$ ( A ( 4) ) 

275 PRINT AT 6 , 1 3 ; A$ ( A ( 5) ) ; AT 7 
, 1 3 ;B$ ( A ( 5) ) 

280 RETURN 

300 REM ROTAZ IONE { 8G8 } 

311 FOR X=1 TO P: LET M(X)=50: 

NEXT X 

312 FOR X= 1 TO P 

314 IF V=P OR V>P THEN PRINT 
AT 20,0; "Vuoi giocare ancor 
a ( / ) ?"; INVERSE 1 ; 

FLASH 1 ;AT 2 0 , 2 0 ; " s " ; 
INVERSE 0 ; AT 2 0,22;"n": 

GO TO 8200 

315 IF M (X ) =0 THEN GO TO 55 

316 PRINT AT X*2,17; INK RND* 4 ; 

FLASH 1 ;M$ (X) 

329 LET M (X) =M(X)-1 0 

330 LET W=0 

340 LET Q$=" " : LET P$="" 

350 PRINT AT 20,0; FLASH 1; 

PAPER 1; INK 7;" Premi ENT 
ER per tirare la leva" 

360 IF INKEY$ < > " " THEN 
GO TO 360 

370 IF INKEY$=" " THEN GO TO 37 
0 

375 IF INKEY$ >CHR$ 13 OR 
INKEY$ <CHR$ 13 THEN 
GO TO 360 

380 PRINT AT 20,0;" 

II 

390 PRINT AT X*2 , 28 ; FLASH 1; 

INVERSE 1; INK (RND*4);M(X 
); FLASH 0; INVERSE 0;" " 
400 FOR Z=1 TO 8 
410 FOR B=1 TO 5 

420 IF Q ( B) =B THEN GO TO 450 

430 BEEP . 00 8 , Z*B 

440 LET A ( B) =INT (RND*5) +1 

450 NEXT B 

460 GO SUB 210 

470 NEXT Z 

480 DIM Q ( 5) 

482 REM PUNTEGGIO 


485 IF A ( 1 ) =A ( 2) AND A(2)=A(3) 
AND A ( 3) =A ( 4) AND A ( 4) =A ( 5 
) THEN LET Q$ = " JACKPOT ! ! 
": LET W=200 : GO TO 520 
490 IF ( A ( 1 ) =A ( 2) AND A(2)=A(3) 
AND A ( 3) =A ( 5) ) OR (A(1)=A( 

2) AND A ( 2) =A ( 4) AND A(4)=A 
(5)) OR ( A ( 1 ) =A ( 2) AND A(2) 
=A ( 3) AND A ( 3) =A ( 4) ) OR ( A ( 
1 ) =A ( 3) AND A ( 3) =A ( 4) AND A 
( 4) =A ( 5) ) OR ( A ( 2) =A ( 3) 

AND A ( 3) =A ( 4) AND A(4)=A(5 
) ) THEN LET Q$="4 DI UN TI 
PO!": LET W=1 00 : GO TO 520 
500 IF ( A ( 1 ) =A ( 3) AND A(3)=A(4) 

) OR ( A ( 1 ) =A ( 2) AND A(2)=A( 

3) ) OR ( A ( 2) =A ( 3) AND A(3) = 
A ( 4) ) OR ( A ( 2) =A ( 3) AND A(3 
) =A ( 4 ) ) OR ( A ( 1 ) =A ( 2) AND A 
( 2) =A ( 4 ) ) THEN LET Q$="3 D 
I UN TIPO!": LET W=35 

505 IF ( A ( 1 ) =A ( 4) AND A(4)=A(5) 

) OR ( A ( 2) =A ( 4) AND A(4)=A( 
5)) OR ( A ( 3) =A ( 4 ) AND A(4) = 
A (5)) OR ( A ( 1 ) =A ( 3) AND A(3 
) =A ( 5 ) ) OR ( A ( 2) =A ( 3) AND A 
( 3) =A ( 5) ) OR ( A ( 1 ) =A ( 2) 

AND A ( 2) =A ( 5) ) THEN LET Q 
$=" 3 DI UN TIPO!": LET W=35 

507 IF (A( 1 ) =A( 4) AND A(4)=A(5) 

) OR ( A ( 2) =A ( 4) AND A(4)=A( 
5)) OR ( A ( 3) =A ( 4) AND A(4)= 
A ( 5) ) OR ( A ( 1 ) =A ( 3) AND A(3 
) =A ( 5) ) OR ( A ( 2) =A ( 3) AND A 
( 3) =A ( 5) ) OR ( A ( 1 ) =A ( 2) 

AND A ( 2) =A ( 5) ) THEN LET Q 
$="3 DI UN TIPO!": LET W=35 

510 IF A ( 1 ) =2 AND A (2) =2 OR A(2 
) =2 AND A ( 3) =2 OR A(3)=2 
AND A ( 4) =2 OR A(4)=2 AND A 
(5) =2 THEN LET P$=" BONUS! 

! ": LET W=W+1 5 
520 FOR G=1 TO 30 
530 BEEP .008,50-G: BEEP .008,5 
0 

540 NEXT G 

550 LET M (X ) =M(X) +W 

560 IF Q$ = " " THEN GO TO 630 

570 PRINT AT 19,1; BRIGHT 1; 

FLASH 1; INK 2; PAPER 4;Q$ 

5 80 PRINT TAB 1 ; BRIGHT 1 ; 

FLASH 1; INVERSE 1; INK 2; 
PAPER 4 ; Q$ 
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590 IF W>0 THEN PRINT AT 10,3; 
BRIGHT 1; INK 2;"VINCI $"; 
W 

600 IF P$="" THEN GO TO 630 
610 PRINT AT 10,20; FLASH 1; 

INK 5; PAPER 3 ;P$ 

620 PRINT AT 11,20; INVERSE 1; 

FLASH 1; INK 5; PAPER 3;P$ 
630 FOR T= 1 TO 100: BEEP .008,T 
-40: NEXT T 

640 PRINT AT X*2,28; FLASH 1; 

INVERSE 1; INK RND*4;M(X); 
INVERSE 0 

650 PRINT AT 19,1;" 

" ; TAB 1 ; " 

VI 

660 PRINT AT 10,2; INK 0;" 

{1 3SG8}" 

670 PRINT AT 1 0, 20;" "; 

AT 11 ,20;" 

680 IF M (X ) < 1 THEN LET V=V+1 : 

PRINT AT 0,0; FLASH 1 ;M$ (X 
) ; "NON PUOI PIU' GIOCARE": 
FOR Z=4 TO 1 STEP -1: 

BEEP l,z: NEXT z: GO TO 51 

690 IF M (X) >499 THEN PRINT 

AT 0,0; FLASH 1;M$(X);"MI H 
AI SBANCATO!!": PRINT AT 20 
,0;"Vuoi giocare ancora ( / 

) ?" ; AT 20,20; INVERSE 1; 

FLASH 1 ; " s " ; INVERSE 0; 

AT 20 , 22 ; "n" : GO TO 8200 
700 GO TO 50 

730 REM VARI AB ILI /GRAFICA 
{ 3G8 } 

1040 PAPER 7: CLS : BORDER 7 
1050 PRINT AT 1,1; INK 0;" 

{11 SG8 } " 

1060 PRINT TAB 0; INK 0;"{2SG8}" 
; INK 4; PAPER 2; FLASH 1;" 
{ 9SG8 } " ; FLASH 0; PAPER 7; 
INK 0 ; " { 2SG8 } {SG8 } " 

1070 PRINT TAB 0; INK 0;;" 

{ 2SG8 } " ; INVERSE 1; INK 4; 
PAPER 2; FLASH 1;"{9SG8}"; 
INVERSE 0; FLASH 0; 

PAPER 7; INK 0;"{2SG8} 

{SG8 } " 


1 080 FOR Z = 1 TO 1 1 

1090 PRINT TAB 0;"{16SG8}" 

1100 NEXT Z 

1110 PRINT TAB 0 ; " { SG8 } " ; 

PAPER 6; INK 3; FLASH 1;" 

{ 1 1 SG8 } " ; FLASH 0; PAPER 7; 
INK 0 ; " { 4SG8 } " 

1120 PRINT TAB 0;"{SG8}"; 

PAPER 6; INK 3; FLASH 1; 
INVERSE 1 ;" {1 1 SG8 } " ; 



FLASH 0; INVERSE 0; 



PAPER 7; INK 

0 ; " { 4SG8 } " 


1 1 30 

PRINT TAB 0 ; " { 1 6SG8 } " 


1 1 40 

FOR E= 1 TO P 



1 1 50 

PRINT AT E*2 , 1 7 ; INK 2;M$(E 


) ; AT E*2 , 27 ; "$ 

" ; M 


1 1 60 

NEXT E 



2000 

PRINT #0; INK 

2; INVERSE 

1 ; 


"1984 © SLOT MACH I NE © by 
.Corti"; INVERSE 0 

c 

4000 

LET X=0 



4005 

LET V=0 



401 0 

DIM A$ (5,4) : DIM B$(5,4) : 



DIM A ( 5) : DIM 

Q (5) 


5050 

REM 



5060 

REM 



5070 

REM 



5080 

REM "A" e "B" 

in modo G 


5085 

REM 



5090 

LET A$ (1 ) =CHR$ 

1 6+CHR$ 2+ 

"A 


" + "B" 



5200 

REM 



5500 

REM "C" e "D" 

in modo G 


551 0 

REM 



6000 

LET B$ ( 1 ) =CHR$ 

1 6+CHR$ 2+ 

"C 


" + "D" 



6010 

REM 



6030 

REM "E" e "F" 

in modo G 


6050 

REM 



6080 

LET A$ (2) =CHR$ 

•• + *ip ii 

1 6+CHR$ 5+ 

"E 

6081 

REM- 



6083 

REM "G" e "H" 

in modo G 


6087 

REM 



6090 

LET B$ (2) =CHR$ 
" + "H" 

1 6+CHR$ 5+ 

"G 

6095 

REM 



7000 

REM "J" e "K" 

in modo G 


7050 

REM 



7070 

LET A$ (3) =CHR$ 

1 6+CHR$ 3+ 

"J 


" + " K " 



7071 

REM 



7073 

REM "L" e "M" 

in modo G 
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7077 

REM 



7080 

LET B$ ( 3) =CHR$ 

1 6+CHR$ 3+ 

"L 


" + "M" 



7090 

REM - 

• 


8000 

REM "N" e "O" 

in modo G 


8040 

REM 



8060 

LET A$ (4) =CHR$ 

1 6+CHR$ 6+ 

"N 


" + "0" 



8061 

REM 



8063 

REM "P" e "Q" 

in modo G 


8067 

REM 



8070 

LET B$ (4) =CHR$ 

1 6+CHR$ 6+ 

"P 


" + "Q" 



8080 

REM 



8090 

REM "R" e "S" 

in modo G 


81 00 

REM 



81 50 

LET A$ (5) =CHR$ 

1 6+CHR$ 2+ 

"R 


" + "S" 



81 51 

REM 



81 53 

REM "T" e "U" 

in modo G 


81 57 

REM 



81 60 

LET B$ (5) =CHR$ 

1 6+CHR$ 2+ 

Il rp 


" + "U" 



81 65 

REM 



81 70 

RETURN 



8200 

IF INKEY$ = "S " 

OR INKEY$ = " 

s" 


THEN GO TO 15 


8300 

IF INKEY$ = "N" 

OR INKEY$=" 

n" 


THEN STOP 



8400 

GO TO 8200 




Slot Machine 

versione per ZX Spectrum 16K/48K 

Caratteri grafici 

1 REM PARTE UDG 

2 REM 

3 REM 

1 1 50 REM MELA 

1160 DATA 0,0,121 ,254,0,16,63,25 

4.0. 16.63.254.15.32.31 .254 
1170 DATA 31,240,15,252,51,252,7 

,248,52,254,1 ,224,101 ,254,0 

,0 

1 1 80 REM CAMPANA 

1190 DATA 0,128,7,240,0,128,15,2 
48, 1,1 92, 15, 248, 3, 224, 31, 25 
2 

1200 DATA 3,224,0,128,3,224,1,19 

2.3.224.1 .192.3.224.0. 0 
1 21 0 REM CILIEGIA 


1220 DATA 0,0,1,136,0,2,26,8,56, 
12,60,16,124,52,126,208 
1230 DATA 127,204,61,224,124,20, 
25, 240, 124, 36, 1,224, 56, 72,0 
, 224 

1232 REM BANANA 

1235 DATA 0,0,0,112,4,0,0,112,2, 
0,0,112,1 ,128,0,224 

1236 DATA 1,192,1,192,0,224,3,12 

8 , 0 , 112 , 6 , 0 , 0 , 112 , 0,0 

1237 REM FRAGOLA 

1238 DATA 0,0,63,188,7,32,26,236 
,9,80,15,248,1 ,128,5,176 

1239 DATA 7,224,7,240,29,248,3,2 

24,55,188,1 ,192,61 ,252,0,0 

5000 RESTORE 

5010 FOR Z=0 TO 7 

5020 READ A: READ B: READ C: 

READ D 

5030 POKE USR "A"+Z,A 

5050 POKE USR "B"+Z,B 

5060 POKE USR "C"+Z,C 

5070 POKE USR "D"+Z,D 

5080 NEXT Z 

6010 FOR Z=0 TO 7 

6020 READ E: READ F: READ G: 

READ H 

6030 POKE USR "E"+Z,E 

6040 POKE USR "F"+Z,F 

6050 POKE USR "G"+Z,G 

6060 POKE USR "H"+Z,H 

6070 NEXT Z 

7000 FOR Z=0 TO 7 

7010 READ J: READ K: READ L: 

READ M 

7020 POKE USR "J"+Z,J 

7030 POKE USR "K"+Z,K 

7040 POKE USR "L"+Z,L 

7050 POKE USR "M"+Z,M 

7060 NEXT Z 

7090 FOR Z=0 TO 7 

8000 READ N: READ O: READ P: 

READ Q 

8010 POKE USR "N"+Z,N 

8020 POKE USR "0"+Z,0 

8030 POKE USR "P"+Z,P 

8040 POKE USR "Q"+Z,Q 

8050 NEXT Z 

8080 FOR Z=0 TO 7 

8090 READ R: READ S: READ T: 

READ U 

8100 POKE USR "R"+Z,R 
81 1 0 POKE USR "S"+Z , S 
8120 POKE USR "T"+Z,T 
8130 POKE USR "U"+Z,U 
8140 NEXT Z 
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di Francesco Santi 



“Dati tot elementi di un triangolo cal- 
colarne il perimetro e l’area...” 


Q uesto programma permette di de- 
terminare il perimetro, l’area, i lati 
incogniti di un triangolo qualsiasi di cui 
si conoscano almeno tre elementi. 

I casi che si possono presentare sono i 
seguenti: 

I) tre Iati noti 

II) due Iati e l’angolo compreso noti 

III) due lati e due angoli noti 

IV) un lato e due angoli noti. 

È un programma particolarmente utile 
per tutti gli studenti medi (non ditelo al 
professore!). Comunque può trovare pa- 
recchie altre applicazioni: infatti, una 
qualsiasi figura piana non curva può es- 
sere ridotta ad un insieme di triangoli 
e, ad esempio, questo è nato per deter- 
minare le aree di stanze dalla pianta ir- 
regolare. 

11 programma inizia, dopo la presenta- 
zione, a richiedere i dati del triangolo, 
per forza di cose è necessario inserire 
i lati incogniti e gli angoli incogniti po- 
nendoli uguali a zero. 

Il secondo passo del programma, un 
volta acquisti i dati, consiste nel con- 
trollo dei dati stessi. Questo al fine di 
determinare la loro eventuale insuffi- 
cienza od erroneità, per poter poi de- 
terminare la strategia di soluzione. At- 
tenzione, però: introducendo dati inve- 
rosimili è possibile, a volte, il blocco 
del programma. In questo caso ridate 
pure tranquillamente ROM e ricomin- 
ciate da capo. 

Le due routine RUOTA LATI e RUOTA 
ANGOLI servono appunto a ruotare i la- 
ti e gli angoli allo scopo di avere sem- 
pre come primo lato quello noto. 
Ultima cosa: gli angoli vengono inseri- 


ti in gradi sessagesimali. 

Una volta scelta la strategia il triango- 
lo viene risolto facendo uso alle funzioni 
trigonometriche dello SPECTRUM. 
Quindi, per poter disegnare il triango- 
lo, il programma procede a un test nel 
quale definisce il parametro K col qua- 
le verranno poi moltiplicati i risultati; 
successivamente viene disegnato sullo 
schermo un triangolo di lati = K * lati 


reali. 

Infine sullo schermo appaiono i risultati 
finali. 

Il programma abbanda di REM esplica- 
tive, e la sua struttura è notevolmente 
lineare così che la sua comprensione 
non determinerà grandi difficoltà. Po- 
trà anche esservi d’aiuto per rispolvera- 
re le vostre conoscenze di trigonome- 
tria... 


Soluzione dei triangoli 

versione per ZX Spectrum 16K/48K 

10 BORDER 6: INK 2: PAPER 5: 

FLASH 1 : CLS 

20 REM SOLUZIONE DEI TRIANGOLI 


30 PRINT AT 5 , 9 ; " { SG2 } { 2SG8 } 

{ SG7 } {SG2} {2SG8} {SG7} 

{SG2 } { 2SG8 } { SG7 } " 

40 PRINT AT 6 , 9 ; " { SG8 } { G 2 } 

{ SG8 } { SG3 } { SG8 } {G2} { G7 } 

{SG5 } " 
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51 PRINT AT 7 , 9 ; " { SG8 } { SG7 } 

{G4 } {SG7 } {SG8 } {G3} 

{ SG8 } { SG7 } { SG2 } { SG5 } " 

52 PRINT AT 8 , 9 ; " { G7 } { 2SG8 } 

{G2 } {G7 } { 2SG8 } {G2 } {G7} 

{ 2SG8 } {G2 } " 

53 PRINT AT 1 3 , 3 ; " { SG2 } { SG7 } 
{G4 } { SGl } {SG2}{2SG8}{SG7} 

. {G4 } {2SG8 } {SG7 } {SG2}{SG8} 

{SGl} { SG8 } {SG2 } {SGl } " 

54 PRINT AT 1 4 , 3 ; " { 4SG8 } 

{SG8 } { SG3 } {G5 } { SG5 } 

{ SG8 } { SG3 } { SG8 } {SG8 } 

{ G 5 } { SG4 } {G7 } { SG5 } " 

55 PRINT AT 1 5, 3 ; " { SG8 } {Gl } 

{ G 2 } { SG8 } {SG8 } { G 3 } {G5} 

{ SG5 } {SG8} {G7} {SGl } 

{ SG8 } {SG8} {SGl } {SG2} 

{ SG8 } " 

56 PRINT AT 16,3;"{SG8} 

{SG8 } { G7 } { 2SG8 } { G2 } {G5} 

{ SG5 } { SG8 } { G7 } { SG5 } 

{ SG8 } {SG8}{G2}{G1 }{SG8}" 

5 7 LET T= 2 : GO SUB 1 00 

60 FLASH 0: BRI GHT 1: CLS 

65 PRINT AT 2,7;"* PRESENTAZ IO 
NE *" 

66 PRINT AT 5,2;"questo progra 
mina ti permette" ' "di risolv 
ere un qualsiasi" ' "triangol 
o conoscendone almeno 3"' "e 
lementi" 

67 PRINT AT 11, 2; "presta molta 

attenzione alle" ' " istruzio 
ni che seguono" " premi 

Y per continuare" 

68 PRINT AT 21,1; " " 

69 PRINT 

70 PRINT " RICORDATI:" 

71 PRINT " il primo lato si c 
hiama a"'" il secondo 

b"'" il terzo 
c" 

72 PRINT 

73 PRINT " il primo angolo e' 

quello"'" compreso fra i 1 
ati " ' " b e c" 

74 PRINT 

75 PRINT " il secondo angolo 
e' quello"'" copreso fra i 
lati" ' " a e c" 

76 PRINT 

77 PRINT " il terzo angolo e' 

quello" ' " compreso fra i 1 
ati"'" a e b" 

78 PRINT 


79 PRINT " premi per continua 
re" 

80 GO SUB 1 00 
82 PAUSE 0 

85 CLS 

86 GO TO 800 

100 REM routine suono 
1 1 0 FOR i = 1 TO T 
1 20 BEEP .1,-7 
1 30 BEEP .1,-4 
1 40 BEEP .1,2 
150 BEEP .1,12 
1 60 NEXT i 
1 70 BEEP .1,2 
1 80 BEEP .1,-4 
1 90 NEXT i 
195 RETURN 

800 REM lettura dei dati 

805 LET P=1 80/PI 

810 INPUT "Lunghezza lato a", A 

820 INPUT "Lunghezza lato b",B 


830 

840 

850 

860 

870 

875 

880 

890 

895 

900 

905 

906 

91 0 
91 5 
920 

930 

940 


955 


960 


965 


INPUT "Lunghezza lato c" ,C 
LET a$="ampiezza dell'angol 
o" 


LET b$=", angolo compreso fr 
a i lati" 


PRINT "Quant ' e ' l'";a$';"AL 

FA" ; b$ ' ; "B e C" 

INPUT ALFA: CLS 
LET ALFA= ALFA/P 
PRINT "Quant 'e' l'";a$';"BE 

TA" ; b$ ' ; "A e C" 

INPUT BETA: CLS 
LET BETA=BETA/P 
PRINT "Quant' e' l'";a$';"GA 
MMA" ; b$ ' ; "A e B" 

INPUT GAMMA: CLS 
LET GAMMA=GAMMA/P 


REM scelta della soluziohe 
GO SUB 5350 

IF AOO AND BOO AND C 
<>0 THEN GO TO 1000 
IF AOO AND BOO AND GA 
MMA O 0 THEN GO TO 2000 
IF AOO AND BOO AND AL 
FAOO AND BETAOO 
THEN GO TO 3000 


IF AOO AND BETAOO 
AND GAMMAOO THEN 
GO TO 4000 
IF AOO AND ALFAOO 
AND BETAOO THEN 
GO TO 4000 
IF AOO AND ALFAOO 
AND GAMMAOO THEN 
GO TO 4000 
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970 CLS : PRINT AT 11,8; 

INVERSE 1 ; "dati insufficie 
nti !"' "ricominciamo a legge 
re i dati" : LET T=1 0: 

GO SUB 100 

971 PAUSE 0: CLS : INVERSE 0 
975 GO TO 800 

1 000 REM caso dei tre lati noti 

1010 LET ALFA= ACS ( ( Bt 2+CT 2-A t 2) 
/ (2*B*C) ) 

1020 LET BETA = ACS ( ( At 2+Ct 2-Bt 2) 
/ ( 2*A*C) ) 

1030 LET GAMMA= ACS ( ( At 2+Bt 2-Ct 2 
)/(2*A*B) ) 

1040 GO TO 6000 

2000 REM caso due lati e angolo 
compreso noti 

2010 LET C=SQR ( ( At 2+Bt 2-2*A*B* 
COS (GAMMA))) 

2020 GO TO 1 01 0 

3000 REM caso due lati e due ang 
oli noti 

3010 LET GAMMA= PI -ALFA -BETA 

3020 GO TO 2000 

4000 REM caso un lato e due ango 
li noti 

4010 IF ALFA= 0 THEN LET ALFA= 

PI -BETA -GAMMA 

4020 IF BETA=0 THEN LET BETA= 
PI -ALFA-GAMMA 

4030 IF GAMMA=0 THEN LET GAMMA= 
PI -ALFA -BETA 


4040 LET A2 =A/ S IN (ALFA) 

4050 LET B=A2 *S IN (BETA) 

4060 LET C=A2 *S IN (GAMMA) 

4070 GO TO 6000 

5000 CLS : PRINT AT 10,10;"DATI" 

5001 PRINT AT 1 1 , 1 0; "ERRATI" 

5002 LET T=50 : GO SUB 100 
501 0 GO TO 800 

5050 LET B=A : LET A=C: LET C=0 
5055 GO SUB 5390 
5060 GO TO 920 

5100 LET A=C : LET C=B: LET C=0 
5110 GO SUB 5390 

5115 GO TO 920 

5300 REM coordinate dei vertici 
5305 LET XB=50 : LET YB=50 
5310 FOR i = 2 1 TO -21 STEP -1 
531 5 LET K= i 

5316 IF 50+K* A< 2 55 AND 50+K*A-K* 
B*COS (GAMMA) <255 AND 50+K* 
B*S IN (GAMMA) <175 AND 50+K* 
C*COS (BETA) >0 THEN 
GO TO 5325 
5320 NEXT i 

5325 LET XC=K*A: LET YC=0 
5330 LET XA= - K*B*COS (GAMMA) : 

LET YA=K*B*SIN (GAMMA) 

5335 LET XXB=-K*C*COS (BETA) : 

LET YYB=-K*C*S IN (BETA) 
5340 RETURN 

5350 REM routine ruota lati 

5355 IF AOO AND C=0 THEN 
RETURN 

5360 IF AOO AND BOO AND C 
<>0 THEN RETURN 
5365 IF AOO AND B = 0 THEN 
GO TO 5050 

5370 IF A=0 AND B=0 AND C=0 
THEN GO TO 970 
5375 IF A= 0 THEN GO TO 5100 
5380 RETURN 

5390 REM routine ruota angoli 

5391 LET DELTA= ALFA 

5392 LET ALFA=BETA : LET BETA=GAM 
MA 

5393 LET GAMMA= DELTA 

5394 RETURN 

5500 REM routine disegna triango 
lo 

5505 PLOT XB , YB 

5510 DRAW XC , YC : DRAW XA , YA : 

DRAW XXB , YYB 

5511 PAUSE 200: CLS 
551 2 RETURN 

6000 CLS : REM conclusione 
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6005 IF A>B+C OR B>A+C OR C>A+B 

THEN GO TO 5000 

6006 IF ALFA>PI OR BETA>PI 

OR GAMMA>PI THEN GO TO 5 
000 

6007 IF ALFAC0 OR BETAC0 OR GAMM 
A< 0 THEN GO TO 5000 


6008 

GO SUB 

5300 


60 09 

GO SUB 

5500 


601 0 

LET ALFA=ALFA*P : LET BETA : 

= B 


ETA*P : 

LET GAMMA= GAMMA *P 


6200 

CLS : 

PRINT AT 5,1; "lati" 

IV 

r 


angoli 

n 


6205 

PRINT 



621 0 

PRINT 

"a=" ; A , "alf a = " ; ALFA 


6220 

PRINT 



6230 

PRINT 

"b=" ; B, "beta = " ; BETA 


6240 

PRINT 



6250 

PRINT 

" c = " ; C , " gamma = " ; GAMMA 

6260 

PRINT 



6261 

PRINT 

A+B+C 

"il perimetro vale: 

il • 
t 

6262 

PRINT 



6265 

PRINT 

"l'area vale:";A/2* 

B* 


SIN (GAMMA/P) 


6266 

PRINT 



6270 

PRINT 

"questi sono i risult 


ati . " 1 

"se vuoi risolvere 

un 


altro 

NT" 

"'"triangolo premi 

CO 

6290 

PRINT 

"se vuoi anche rilegg 


ere" ' " 
UN" 

le istruzioni premi 

R 

6300 

LET T= 

10: GO SUB 1 00 : 



STOP 



6305 

CLS 



631 0 

GO TO 

800 



SUPERSINC N° 5 
sarà in edicola 
ai primi di novembre 
Non perdetelo! 


Per ricevere la cassetta contenente 
i programmi di SUPERSINC 
compilate e spedite il coupon qui sotto! 




di Hugh Walker 

trad. e adatt. di 

Paolo Maffei 


Pericolo, magia, mostri e tesori vi 
aspettano in questo super gioco di 
avventura per lo Spectrum 48K 


Uno dei problemi dei giochi di avven- 
tura consiste nel fatto che questi ven- 
gono spesso completati grazie alla co- 
noscenza del programma introdotto. 
In questo programma sono stati adot- 
tati due metodi per eliminare, per 
quanto possibile, questo problema. 
Prima di tutto sono stati eliminate i e 
REM illustrative e le linee sono state 
introdotte in maniera illogica; inoltre è 
stato fatto un grande uso di funzioni 
RND per mantenere viva la suspence 
durante il gioco. 

Interpretate il ruolo di un giovane eroe 
il cui compito è quello di introdursi nel 
castello di Warlock e di trovare tutte le 
monete doro, usando le chiavi per 
aprire le porte chiuse e combattendo 
con i mostri di guardia al tesoro, arma- 
to solo di una spada, di uno scudo e 
del vostro... coraggio. Ogni chiave che 
trovate può esser usata una sola volta, 
ma non tutte le porte sono chiuse. 

Per trovare le monete doro e le chiavi 
dovete aprire porte, esplorare corridoi 
e combattere, se necessario, con i mo- 
stri; potrebbe capitare comunque di 
non trovare nulla e ci verrebbe quindi 
offerta la possibilità di riposarvi per ri- 
mettervi in forma. 

La vostra forza, infatti, è limitata e si ri- 
duce ad ogni combattimento. 

All’inizio del gioco Warlock non è nel 
castello, ma, state attenti, potrebbe ri- 
tornare in qualsiasi momento e allora 
saranno guai... infatti , se Warlock vi 
sorprenderà, sarà molto difficile scap- 
pare e, inoltre, il malvagio potrebbe 
usare le sue arti magiche per trasfor- 
marvi in un piccolo animaletto, por- 
tandovi via tutti i punti-coraggio con- 
quistati. 

Quando avrete recuperato tutte le mo- 
nete d’oro dovrete uscire dal castello. 
Per uscire dovrete attraversare una 
porta posta al livello (piano) 0. 

Ogni volta che vi troverete di fronte ad 
un mostro o a Warlock stesso avrete 
due possibilità: “combattimento" o 


Opzioni del programma 


1 Porta (potrebbe essere chiusa) avete due scelte: “apri" o “pro- 

segui”. 

Se aprite la porta potete trovare delle monete doro... o 
un mostro... o nulla. In questo caso dovete proseguire. Se 
la porta è chiusa e non ne avete la chiave dovete prose- 
guire... con la possibilità di incontrare un mostro. 

2-3 Scelte: “ti muovi", “esplori”, “situazione”. 

“ti muovi”: muovendovi indietro o lateralmente può ca- 
pitarvi di urtare il capo contro una trave causandovi una 
perdita di energia; muovendovi in avanti non correte 
questo pericolo perché riuscite a vedere la trave! 
“esplori": potete trovare delle monete d’oro, una chiave, 
del vino e del cibo per rimettervi in forma, un mostro, 
un’altra situazione o nulla, dovendo in tal caso così pro- 
seguire con i soliti rischi. 

“situazione ”: vi viene presentata una situazione in cui vi 
trovate in quel preciso istante: livello, mostri, etc. 

3 Scala 3 scelte: “su”, “giù", “prosegui”. 

Non saprete se la scala va su o giù finché non avrete ten- 
tato. Se sbagliate dovete proseguire. 


“fuga". Non avete la capacità e l’espe- 
rienza per uccidere gli avversari (ricor- 
datevi che siete solo un giovane ine- 
sperto), ma potete solo costringerli al- 
la fuga e ferirli. 

Comunque non è sempre facile vince- 
re i duelli: ricordatevi che ad ogni com- 
battimento diminuisce la vostra forza e 
che quando questa si esaurisce com- 
pletamente avete perso la partita. 

Se decidete comunque di scappare 
verrete considerati dei codardi, perde- 
rete punti-coraggio, e rischierete di per- 


dere qualche moneta d’oro 
intrappolati dal mostro. 

All’interno del castello troverete le al- 
tre seguenti situazioni: “porta", “corri- 
doio", “scala". 

Solo il computer conosce l’esatto nu- 
mero di monete d oro da trovare di cui 
voi non sarete a conoscenza finché 
non le avrete recuperate tutte (sarà co- 
munque un numero di monete com- 
preso fra 1500 e 2500). Per registrare 
il programma, digitate GO TO 9000. 
Buona fortuna! 


36 SCI PERSI NC * 4/84 


i 

Descrizione delie variabili 

matrici dimensionate 

m$(9, 1 5) 

il nome di ogni mostro (e di Warlock) 

a$(3, 1 2) 

le tre situazioni trovate (porta, corridoio ( porta, corri- 
doio, scala) 

k$(3,6) 

le tre piccole creature in cui potete essere trasformati. 

m(9) 

la resistenza di ogni mostro ai vostri colpi. 

n(9) 

la resistenza di ogni mostro a opporsi ai successivi colpi 

9(9) 

il valore che incrementa i punti-coraggio quando batte- 
te un mostro (linee 3090 e 31 10). 

z(ll) 

la lunghezza dei BEEP nella linea 4000. 

y(ii) 

il tono dei BEEP nella linea 4000. 

variabili semplici: 

hi 

record, aggiornato ad ogni partita. 

hr (*) 

punti-coraggio 

hq 

quoziente-coraggio, aumenta se si vince un duello. 

ded 

il numero dei mostri battuti. 

ht 

la potenza del vostro colpo durante il combattimento 
(scelta casualmente). 

blo 

il valore del decremento di resistenza del mostro ai col- 
pi successivi. 

mn 

valore casuale tra 1 e 9 per scegliere il mostro da m$( ) e 
i relativi valori di m, n, g,. 

str 

la vostra forza, inizialmente al valore 500; questa dimi- 
nuisce combattendo o ferendosi il capo; aumenta ripo- 
sandosi. 

wl 

il valore di decremento della variabile ‘str’ quando vi fe- 
rite il capo contro una trave (scelto causalmente). 

tres 

il numero di monete d’oro da trovare. 

tr 

variabile logica che cambia corso al programma quan- 
do è stato raggiunto ‘tres’; essa evita dei trovare altre 
monete e vi permette di uscire (linea 1630) quando siete 
al livello 0. 

csh 

il numero di monete in vostro possesso. 

cn 

il numero di monete di volta in volta trovate. 

ky 

il numero di chiavi in vostro possesso. 

wy 

valore casuale scelto tra 1 e 3 per scegliere a$ e per de- 
terminare il GOSGB nella linea 140 . 

fi 

bp 

il livello (piano) in cui vi trovate, 
variabile usata nelle linee 400-460; 

bp - -l- 1: su, bp = 1; giù; 

questa variabile inoltre modifica ‘fi’ e il tono dei Beep 
nella linea 460. 



(*) I punti-coraggio sono così calcolati: csh + (ky + 5) 4 - hq e vengono ag- 
giornati ogni volta che si cambia situazione. 

Nel corso del programma ‘f, Y e ‘h’ vengono usate come variabili in diversi 

cicli FOR-NEXT. 


Descrizione del programma 

Linee 

Commento 

20 

inizializza il record per le successive partite. 

50-60 

inizializzano ogni partita (routine completata con la 
chiamata della subroutine 5000-5500). 

100-150 

routine principale alla quale tutte le altre ritornano. 
Sceglie e scrive le diverse situazioni e determina il rela- 
tivo GOSGB . 

Situazioni: (linee 200-460) 

200-220 

scrive corridoio’ e determina le scelte con GOTO 500, 

600 e 700 

300-330 

scrive ‘porta’ e determina le scelte con GOTO 800 o 
8200 

400-460 

scrive ‘scala’ e determina le scelte; routine completa. 



Riviste firmate 
JACKSON 

Bit 

La prima Rivista europea di personal computer, 
software e accessori. Con test, novità, analisi del 
mercato... 

11 numeri all'anno. L. 4.000 a numero 
oL.3 


jftBC 


Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi operativi. 

10 numeri all'anno. L. 3.500 a numero 
Abbonamento: solo L. 28.000 

MF0RMAT1CA 

La Rivista professionale per chi si occupa di 
sistemi: dai microcomputer ai mini, ai supermini, ai 
mainframe. Con notizie in anteprima daH’America. 

11 numeri all'anno. L. 3.000 a numero 
Abbonamento: solo L. 27.000 

UiKO 

GiOChi 

La guida indiscussa al fantastico mondo dei 
videogames. La più eccitante, divertente, istruttiva 
rassegna del settore. 

11 numeri all’anno. L. 3.000 a numero 
Abbonamento: solo L. 25.000 

elettronica 

OGGI 

Da sedici anni il punto di riferimento più qualificato 
per chi voglia aggiornarsi su prodotti, applicazioni, 
tecnologie, mercati, in Italia e all'estero. 

11 numeri all'anno. L. 3.500 a numero 
Abbonamento: solo L. 31.000 

fElettronica 

Quindicinale di politica industriale, 
componentistica, informatica e telecomunicazioni 
per uomini di marketing, responsabili acquisti, 
manager di settore. 

22 numeri all’anno. L. 2.500 a numero 
Abbonamento: solo L. 44.000 

iUIOMillOMf 

Un'aggiornatissima panoramica delle nuove 
tecnologie microelettroniche e informatiche 
applicate all'automazione industriale. 

11 numeri all’anno. L. 3.000 a numero 
Abbonamento: solo L. 26.000 


mimmi 

Le frontiere aperte dalla telematica, le 
telecomunicazioni professionali in tutti i loro 
sottosettori. 

8 numeri all’anno. L. 3.500 a numero 
Abbonamento: solo L. 22.000 


elekitor 


Il mensile di elettronica venduto in mezzo milione 
di copie e redatto in 7 lingue. Con articoli su: 
applicazioni, progettazioni, sperimentazioni, 
invenzioni. 

10 numeri all'anno. L. 3.000 a numero 
‘Numero doppio’ L. 6.000 
Abbonamento: solo L. 29.000 




Il mondo delle 7 note in versione... elettronica. Con 
test strumentali, novità e analisi del mercato, 
servizi speciali. 

10 numeri all’anno. L. 3.000 a numero 
Abbonamento: solo L. 24.000 

Quando l’informazione 
fa testo 


r ta busta chiusa inviate questo coupon 
Gruppo Editoriale Jackson - via R< 

□ Desidero ricevere GRATIS un numero della 
Rivisti 


(allego L 1 .000 in francobolli per contributo spese di 
spedizione) 

□ Inviatemi GRATIS il Catalogo della Biblioteca JACKSON 
(allego L. 1 .000 in francobolli per contributo spese di 
spedizione) 


Nome 


Goannma 
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GRUPPO EDITORIALE 
JACKSON 


Risposte alla routine ‘corridoio’ (linee 500-780) 

500-520 

opzione ‘ti muovi’ con IMKEY$ “1” nella linea 220; pre- 
senta le diverse opzioni. 

600 

opzione esplori’ con INKEY$ “2” nella linea 220; usa un 
GOTO 1650. 

700-780 

opzione ‘situazione’ con IMKEY$ “3” nella linea 220; 
scrive ciò che si possiede, il punteggio, il livello in cui ci 
si trova e ritorna alla linea 200 quando si è pronti. 

Risposte alla routine ‘porta’ 

800 

opzione ‘apri’ con INKEY$ “1” nella linea 320. Scelta 
casuale fra GOTO 1500 (porta chiusa) o GOTO 1600 
(porta aperta). 

Risposte alla routine ‘esplori’ e ‘porta aperta’ 

100-1460 

100-1800 

routine ‘incontri un mostro’; sceglie il mostro, presenta 

1650-8200 

l’opzione ‘combatti’ (GOTO 3000) o ‘scappi’ (GOTO 
8500), dà la possibilità al mostro di rubarvi alcune mo- 
nete d’oro e, se incontrate Warlock, di essere trasforma- 
to in un animaletto (GOTO 1700). 

1100-1150 

routine trovi dell’oro’, dalla linea 1650 o 3130. Control- 
la quante monete sono state trovate e le somma a quelle 
già in vostro possesso e scrive il totale; controlla inoltre 
se è stato raggiunto il numero di monete da trovare. 

1200-1220 

routine hai trovato una chiave’; dalla linea 1650 o 3130 
Determina a caso se farvi trovare o meno una chiave; se 
la chiave viene trovata la somma alle precedenti. 

1300 

routine ‘non c’è nulla’; utilizza le linee 8000-8210 per 
completare la routine. 

1400-1460 

routine ‘riposati’; determina a caso se farvi riposare o 
meno; in caso affermativo aumenta la vostra forza. 

Continuazione alla routine ‘porta’ (linee 1500-1650); 

800 

dalla routine ‘porta chiusa’; controlla se avete la chiave; 
se non la possedete GOTO 6500. 

Se invece l’avete chiede se la volete usare; dopo di che 
decrementa il numero di chiavi in vostro possesso e va 
alla linea 1600. 

1600-1650 

routine ‘porta aperta’ (dalla linea 1550 o 800). Usa la li- 
nea 4100 per i Beep, controlla se la partita è stata termi- 
nata e sceglie a caso fra GOTO 1000, 1 100, 1200, 1400. 

Routine ‘fine’ (linee 1700-2050) 

1700-1770 

routine ‘triste conclusione’ (Warlock usa i suoi poteri 
magici). 

Determina e scrive k$ e usa le linee 1900-1950 per com- 
pletare la routine. 

1800-1880 

routine ‘finale vittorioso’: scrive il punteggio ottenuto e 
usa le linee 1900-1950 per completare la routine. 

1900-1950 

routine ‘record’ e ‘giochi ancora?’. 

Aggiorna il record e chiede se volete fare un’altra parti- 
ta; se ‘SI’ va alla linea 50 altrimenti STOP. 

2000-2050 

routine ‘non hai più forza’; Scrive il messaggio e usa le 
linee 1850-1950 per completare la routine. 

2500-2570 

routine hai trovato tutte le monete’. 

Scrive il messaggio e pone la variabile logica “tr” ugua- 
le a 1, quindi ritorna alla routine principale (linea 100). 

Routine ‘combattimento’ (linee 3000-3130) 

3000-3040 

calcolano l’intensità del vostro colpo, decrementano la 
forza, controllano se hanno ferito il mostro; se si, GOTO 
3050; se no GOTO 1050 per un altro tentativo. 

3050-3130 

calcolano in che misura avete ferito il mostro, decre- 
mentano la sua resistenza; se il mostro è ancora in gra- 

e 

do di combattere si ritorna alla linea 1050, altrimenti 
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aumentano i punti-coraggio; quindi GOTO 1100- o 
1200. 

3500 

subroutine ‘titolo’. Scrive il titolo usato in varie parti del 
programma. 

4000-4500 

routine Beep 

5000-5190 

routine d’inizio; 

Dimensionamento matrici, istruzioni READ per la lettu- 
ra dei DATA nelle linee 7500-7800, istruzioni, inizializ- 
zazioni delle variabili; viene poi utilizzata la linea 5500 
per continuare. 

5500 

usata per proseguire il programma 

6000-6050 

‘il mostro ti porta via alcune monete doro’ dalla linea 
1040. 

Scrive il messaggio ed aggiorna la variabile “csh”; se 
erano state trovate tutte le monete viene resettata la va- 
riabile “tr”. 

6500 

routine “no”; dalle linee 1510 e 1540. Utilizza GOTO 
8000 per continuare. 

8000 

routine prosegui’; dalle linee 320, 430, 1300, 1460 e 
6500; porta alla linea 8200. 

8200-8210 

viene determinato a caso se incontrare un altro mostro; 
dalle linee 330, 420, e 8000. 

8500-8530 

routine “scappi”; dalla linea 1070. 

Scrive “Codardo”, decrementa i punti-coraggio, quindi 
sceglie fra: 

8520 

(a) vi vengono portate via alcune monete d’oro utiizzan- 
do GOTO 6010 per aggiornare la variabile “csh”. 

8540 

(b) rimanete intrappolati; ritorna alla linea 1050 per un 
altro tentativo. 

9000-9050 

routine per il salvataggio su nastro del programma; que- 
sta routine è accessibile con BREAK: GOTO 9000. 


Se avete uno 
Spectrum... 

POKE 

23561.0. . .35 
regola il tempo 

di innesco 
dell’autorepeat 
della tastiera, e 
POKE 

23562.0. ..5 si 
occupa della 

velocità 

dell’autorepeat 

stesso. 


Warlock 

versione per ZX Spectrum 48K 

10 REM ***** WARLOCK ***** 

20 LET hi=0 

50 PAPER 0: INK 9: BORDER 0: 

CLS 

60 G0 SUB 5000 
100 LET wy=INT (RND*3)+1 
110 CLS : PRINT "Hai trovato " ; 
a$ (wy) 

120 LET hr=csh+ky*5+hq 
140 G0 SUB 1 00+1 00*wy 
1 50 G0 T0 1 00 

200 PRINT '"(l)Ti muovi ;( 2) Espi 
ori; " ' " (3) Situazione" 

210 PAUSE 0: IF INKEY$<"1" OR 
INKEY$ > " 3 " THEN GO T0 210 
220 GO T0 400+1 00*VAL INKEY$ 

300 PRINT '"(1) apri (2) prose 
gui" 

310 PAUSE 0: IF INKEY$ < " 1 " OR 
INKEY$ > " 2 " THEN GO TO 310 
320 IF INKEY$ = " 1 " THEN GO TO 8 
00 

330 GO TO 8200 

400 PRINT '"(1) su; (2) giu'; ( 
3) prosegui" 

410 PAUSE 0: IF INKEY$ < " 1 " OR 
INKEY$ > " 3 " THEN GO TO 410 


420 IF INKEY$ = " 3 " THEN GO TO 8 
200 

430 IF INT (RND*3) THEN 

PRINT '"Non puoi andare "; 
("su'" AND INKEY$="1 ") ; ("gi 
u' " AND INKEY$ = " 2 " ) ; : 

PAUSE 60: GO TO 8000 

440 LET bp= ( INKEY$ = "1 ") - ( 

INKEY$ = " 2 " ) 

450 LET f l=f 1+bp: PRINT O.K. 
Ora sei al livello ";fl 

460 FOR f = 2 TO 30 STEP 2: 

BORDER INT (f/4): BEEP .05 
, f *bp: NEXT f: BORDER 0: 
RETURN 

500 PRINT '"(1) Avanti; (2)Ind 
ietro" '"( 3) Sinistra; (4)Des 
tra" 

510 PAUSE 0: IF INKEY$>"1" 

AND INT ( RND* 2 ) THEN 
PRINT '"Hai urtato una tra 
ve" ''"e ti sei ferito il ca 
po.": GO SUB 4500: LET wl= 
INT (RND* 5) +1 : LET str=str- 
wl* 1 0 : PRINT " Ahi!" 

520 PAUSE 50: IF str<l THEN 
GO TO 2000: RETURN 

600 GO TO 1 650 
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1060 PAUSE 0: IF INKEY$<" 1 " OR 

INKEY$ > " 2 " THEN GO TO 1060 

1 070 IF INKE Y$ = " 2 " THEN GO TO 8 
500 

1 080 IF INKEY$ = " 1 " THEN GO TO 3 
000 

1100 IF tr THEN PAUSE 50: 

RETURN 

1110 LET cn= INT (RND* ( 500/ ( INT ( 
csh/500) +1 ) ) ) +50 

1120 PRINT ' INK 6 ; "Hai trovato 
";cn;" monete d'oro." 

1 1 30 LET csh=csh+cn 

1140 IF csh>=tres THEN GO TO 25 
00 

1150 GO TO 41 00 

1200 IF INT (RND* 2) THEN 
PAUSE 50: RETURN 

1210 PRINT '"Hai trovato una chi 
ave . " 

1220 LET ky=ky+l : GO TO 4100 

1300 PRINT '"Non c'e' nulla!";: 
PAUSE 50: GO TO 8000 


700 CLS : PRINT TAB 10;"SITUAZI 
ONE" 

710 PRINT '"Hai:" 

720 PRINT 'TAB 7 ; "Una spada ed 
uno scudo" 

730 PRINT 'TAB 7; "Energia 

" ; str 

74 0 PRINT 'TAB 7 ; "Monete d'oro. 
" ; csh 

750 PRINT 'TAB 7 ; "Chiavi 

" ; ky 

760 PRINT 'TAB 7; "Mostri battut 
i " ; ded 

770 PRINT 'TAB 7 ; "Punti-coraggi 
o " ; hr 

780 PRINT 'TAB 7; "Sei al livell 
o " ; f 1 : GO SUB 5500 : 


GO TO 200 

800 GO TO 1 500 + 1 00*INT ( RND* 2 ) 
1000 LET mn=INT (RND*9) +1 
1010 CLS : PRINT '" IMPROVVISAME 


NTE ! " ' ' " Incontri ";m$(mn) 
1020 FOR f =2 TO 21: BEEP .04,10: 

BORDER INT (RND* 7) : BEEP . 
05,-10: NEXT f: BORDER 0 
1 030 IF NOT INT (RND* 5) AND mn=9 
THEN GO TO 1700 
1040 IF NOT INT (RND*10) THEN 
GO TO 6000 

1050 INPUT "": PRINT ' ; "Cosa vuo 
i fare?"''"(l) combatti (2 
) scappi" 


1400 IF INT (RND* 2) THEN 
RETURN 

1 41 0 PRINT ' "Hai trovato del vin 
o e del cibo "Riposati . " 

1 420 LET s tr = s tr+I-NT (RND*50)+5: 

IF str >500 THEN LET str=5 
00 

1430 PRINT '" ZZZZZ ZZZZZ ZZZZZ 
ZZZZZ ZZZZZ" 

1440 FOR f=l TO 5: BEEP 1.5, -48: 
BEEP 0. 2,-47: PAUSE 25: 
NEXT f 

1 450 PRINT '"'E' ora di andare.. 

: PAUSE 70 

1 460 GO TO 8000 

1500 PRINT '"La porta e'chiusa!" 
;: GO SUB 4500: PRINT "Hai 
la chiave?"; 

1510 PAUSE 50: IF ky< 1 THEN 
GO TO 6500 

1520 PRINT ' FLASH l;"Si.";: 

PAUSE 20: PRINT "Vuoi usar 
la? ( s/n) " 

1530 PAUSE 0: IF INKEY$<> "n" 

AND INKEY$ <> "N" AND 
INKEY$ < > " s" AND INKEY$ 

<>"S" THEN GO TO 1530 

1 540 IF INKEY$ = "n" OR INKEY$ = "N" 
THEN GO TO 6500 

1550 PRINT '"Si.... Apro la porta 
LET ky=ky- 1 : PAUSE 20: 
PRINT " click" 
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1 600 

1 61 0 
1 620 
1 630 

1 640 
1 650 
1 700 
1 71 0 

1 720 

1 740 

1 750 

1 760 
1 770 

1 800 
1 81 0 

1 820 

1 830 
1 840 
1 850 

1 860 

1 870 

1 880 

1 900 
1 91 0 

1 920 

1 930 
1 940 

1 950 


PRINT La porta si apre." 

GO SUB 41 00 

PRINT " guarda!" 

IF NOT fi AND tr THEN 
GO TO 1 800 
PAUSE 50 

GO TO 1 000 + 1 00*INT (RND* 5) 

CLS : GO SUB 3500 

PRINT ' TAB 6; "LA TRISTE CON 

CLUS IONE " ' TAB 6;"********** 
***********" 

PRINT '"'Sei finito nelle m 
ani di WARLOCK" ' ' "Egli ti h 
a trasformato in ";k$(lNT ( 
RND* 3 ) +1 ) 

PRINT '"I tuoi punti-coragg 
io erano " ; hr 

PRINT ' INK 6; "Hai trovato 
";csh;" monete d'oro." 

GO SUB 4000 
GO TO 1900 

GO SUB 3500 

PRINT FLASH 1; INK 6 ; ' AT 5 
, 1 0 ; "COMPLIMENTI !" : FLASH 0 
: INK 7 

PRINT '" Hai ingannato 

War look" 

PRINT 'TAB 8; "ed i suoi mos 
tr i . " 

FOR i = 1 TO 3: GO SUB 4100: 
NEXT i 

PRINT ' INK 6;" Hai trovat 
o ";csh;" monete d'oro." 

PRINT Hai trovato " ; ky 

;(" chiave." AND ky=l)+(" c 
hiavi." AND kyOl) 

PRINT '" Hai sconfitto ";d 
ed;(" Mostri." AND ded>l)+( 
" Mostro." AND ded< = l ) 

PRINT '"I tuoi punti-coragg 
io ("sono:" AND str>0);(" 
erano:" AND str<=0);hr 
IF hr >hi THEN LET hi=hr 
PRINT AT 2 , 20 ; "Record: ";hi 

INPUT "": PRINT #0;TAB 3;"U 
n' altra avventura? ( s/n) " : 
PAUSE 0 

IF INKEY$ = "s" OR INKE Y$ = "S " 
THEN CLS : GO TO 50 
IF INKEY$ = "n" OR INKEY$ = "N" 
THEN GO SUB 4100: CLS : 
STOP 

GO TO 1 920 


2000 GO SUB 3500 

2010 PRINT '" Non hai piu' forz 
a . " 

2020 PRINT '" War look ha vinto 
ancora ! " 

2030 GO SUB 4000 

2040 PRINT 'TAB 8; "Prima di mori 
re" 

2050 GO TO 1 850 

2500 GO SUB 4100: CLS : PRINT 

FLASH 1; INK 6;AT 1,10;"BE 
N FATTO!": FLASH 0: INK 7 
2510 PRINT ''TAB 8; "Hai trovato 
il" 

2520 PRINT 'TAB 6; "tesoro di War 
lock! " 

2525 PRINT 'TAB 1 ; "Ora torna fuo 
ri";: PAUSE 80: PRINT "..se 
ci riesci!" 

2530 PRINT ''TAB 3;"Sei al livel 
lo " ; f 1 

2540 PRINT 'TAB 3; "Per uscire de 
vi"';TAB 3 ; "attraversare un 
a porta" 

2545 PRINT TAB 3; "posta al livel 
lo 0." ' 

2560 PAUSE 50: PRINT '''TAB 10*;" 

Buona fortuna!" 

2570 LET tr=l : GO TO 5500 
3000 LET ht= INT (RND*1 0) +1 
3010 LET str=str-ht* (INT (RND*2) 
+1): IF str<! THEN GO TO 2 
000 

3020 IF ht>m(mn) THEN GO TO 305 
0 

3030 PRINT '"Non hai colpito ";m 
$ (mn) 

3040 GO SUB 4500: GO TO 1050 
3050 LET blo=ht-m (mn) 

3060 PRINT '(" Hai ferito " 

AND blo>=3) ; (" Hai spavent 
ato " AND blo<=2) ;m$ (mn) : 

GO SUB 41 00 

3070 LET n (mn) =n (mn) -blo 

3080 IF n (mn ) < 1 THEN GO TO 3110 

3090 IF n (mn) < 3 THEN PRINT ';m$ 
(mn) ( TO g(mn));" sembra mo 
Ito stanco." 

31 00 GO TO 1050 

3110 PAUSE 50: PRINT ';m$(mn)( 

TO g(mn));" scappa.": 

GO SUB 4100: PRINT '" Ma 1 
a tua forza e' ora ";str 
3120 LET hq=hq+g (mn) * ( INT (RND* 3 
)+l): LET ded=ded+l 
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3130 GO TO 1 1 00 + 1 00*INT (RND* 2) 

3500 CLS : PRINT AT l,12;"WARLOC 
K" ' TAB 12;"*******": 

RETURN 

4000 FOR f=l TO 11: BEEP z(f),y( 
f): NEXT f: RETURN 

4100 FOR f=10 TO 20:: FOR h=0 

TO 3: BORDER h: BEEP .016, 
f*2-h: NEXT h: NEXT f: 

RETURN 

4500 FOR f = 5 TO 6: BEEP .5,-6*f: 

NEXT f: PAUSE 50: RETURN 

5000 GO SUB 3500 

5010 PRINT AT 1 5 , 6 ; "Seguono le i 
struzioni" 

5020 GO SUB 5500: GO SUB 3500 

5030 DIM m$ ( 9, 1 5) : DIM a$(3,12) 

5040 DIM m ( 9) : DIM n(9): DIM g(l 
5) 

5050 DIM k$ ( 3 , 6) : DIM z ( 1 1 ) : 

DIM y ( 1 1 ) 

5060 RESTORE : FOR f=l TO 9: 

READ m$ ( f ) : READ m ( f ) : 

READ n (f ) : READ g ( f ) : 

NEXT f 

5070 FOR f=l TO 3: READ a$(f): 

NEXT f 

5080 FOR f=l TO 11: READ z(f): 

READ y (f ) : NEXT f 

5090 FOR f=l TO 3: READ k$(f): 

NEXT f 

5100 PRINT '"Sei un giovane eroe 

all' attaccodel Palazzo di 

War look . " 

5110 PRINT '"Stai cercando di tr 
ovare il suo ";TAB 11; 

FLASH 1; PAPER 6; "TESORO." 

5120 PRINT "'...Warlock non e' n 
el palazzo ..."'' TAB 13; 

FLASH 1 ; "MA" ; FLASH 0 

5130 PRINT '" c'e chi fa una buo 
na guardia!" 

5140 PRINT '"' ATTENTI AL RITORN 
O DI WARLOCK!" 

5150 FOR f=l TO 3: FOR i=4 TO 7: 

FOR h=2 TO 6: BEEP . 01,f+i 
+h : BORDER h: BEEP .01,i+h+ 
f: BORDER i: BEEP .01,h+f-i 
: BORDER f: NEXT h: NEXT i: 

NEXT f: BORDER 0 

5160 LET hr=0 : LET tr=0: LET ky= 
0 

5170 LET tres=l 500+1 00*INT (RND* 
10) 


5180 LET f 1 = 0 : LET ded = 0: LET hq 
= 0 

5190 LET str=500 : LET csh=0 
5500 PRINT AT 21,1; "Premi un tas 
to per continuare.": 

PAUSE 0: CLS : RETURN 
6000 PRINT '" Qualcuno ti colpis 
ce e"' '"ti porta via dell'o 
ro . " 

6010 LET csh=csh- INT (csh/(INT ( 
RND* 3) +1 ) ) 

6020 PRINT ''; INK 6;" Ora hai " 
;csh;" monete d'oro." 

6030 IF tr AND csh<tres THEN 

LET tr=0 : PRINT '''TAB 3;" 
Ricomincia a cercare." 

6050 GO TO 4500 

6500 PRINT ' FLASH l;"No!";: 

PAUSE 50: GO TO 8000 
7500 DATA "lo Spir i to" , 5 , 8 , 1 0 , " i 
1 Gigante" , 3 , 1 0 , 1 0 ," il Demo 
nio" , 2 , 1 0 , 1 0 , " il Vampiro", 2 
,8, 10, "il Lupo Mannaro", 4, 9 
, 1 5 , " 1 ' Ossesso" , 3 , 4 , 9 , " il F 
antasma" , 2 , 8 , 1 1 , " il Drago", 
4,8,8, "WARLOCK" ,8,12,7 

7600 DATA "un Cor r idoio . " , " una P 
orta." ,"una Scala." 

7700 DATA 1,4, 1,4, 0.3, 4, 1.2, 4,0. 
75,7,0.5,6,1 ,6, 0.3, 4, 0.7, 4, 
0. 5, 3, 1 ,4 

7800 DATA " lepre" ," rana" ," pulce" 

8200 IF NOT INT (RND* 5) THEN 
GO TO 1000 
8210 RETURN 

8500 PRINT '" Codardo!": LET hq= 
hq-g (mn) * ( INT (RND*3)+1): 

IF hq< 1 THEN LET hq=0 
8510 GO TO 8520+1 0*INT (RND*3) 
8520 PRINT '" Sfortunatamente, n 
ella fretta"''" hai perso d 
eli' oro.": GO TO 6010 
8530 GO TO 4500 

8540 PRINT '" Che sfortuna!"'" T 
i ha intrappolato.": 

GO SUB 4500: GO TO 1050 
90 00 CLEAR ■: LET S$ = "WARLOCK" 
9010 SAVE S$ LINE 0: BEEP 1,10 
9020 PRINT "RIAVVOLGI IL NASTRO 
E PREMI UN" '"TASTO PER LA V 
ERI FICA" 

9030 PAUSE 0 

9040 VERIFY S$ : BEEP 1,0 
9050 STOP 
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Vivrete con lo ZX81 l’intensità dram- 
matica di un assalto disperato 


L o spunto di questo gioco di strate- 
gia è stato preso dalla battaglia di 
Balaklava (25 ott. 1854) durante la 
guerra di Crimea, nella quale in gene- 
rale inglese Lord Cardingam, alla testa 
di un pugno di uomini, tentò di contra- 
stare uno schieramento di ben 30 can- 
noni russi nella valle della morte. 
Lanciato il programma, viene visualiz- 
zato sullo schermo una scacchiera di 
10 x 10, rappresentante appunto “La 
valle della morte”. Ai lati sinistro, de- 
stro ed inferiore della stessa sono si- 
tuati i 30 cannoni russi con 
da 1 a 9 assegnato. Il vostro 
uomini è posto al centro del lato su 
riore, pronto ad entrare nella valle. 

La prima mossa che dovrete effettua 
sarà quella di entrare nella valle e do- 
vrete pertanto inserire D per destra, A 
per avanti o S per sinistra. Non appena 
entrati avrà inizio il gioco vero e p 
prio: Il nemico ha a disposizione 3 
pi (uno per lato) mentre voi 
uno solo. La potenza del 
minata dal valore d 
quello assegnato al vostro uomo. Per 
sparare dovete inserire prima la lettera 
corrispondente all uomo della vostra 
brigata che intendete far sparare (lette- 
ra dalla A alla I come da schema che lo 
ZX81 fa apparire sulla destra del 
video), quindi inserire la direzione del- 
lo sparo indicato (D - A - S). Quest’ulti- 
ma lettera determinerà inoltre la dire- 
zione di avanzamento nella valle. 

Una volta raggiunto il fondo della valle 
inizierà la ritirata. Per ogni cannone 
colpito vi verrà assegnato il corrispon- 


dente punteggio e per ogni vostro uo- 
mo abbattuto verrà detratto il rispetti- 
vo valore. 

Scopo del gioco è cercare di riuscire 
ad ottenere alla fine della gara almeno 
un punteggio superiore allo zero, che è 


già da considerarsi un buon risultato. 
A video viene riportato il record rag- 
giunto in tale gioco (da un fenomeno, 
penso) di 63 punti; dopo diverse parti- 
te di prova effettuate superare i 20 
punti è stato notevolmente difficile. 


La valle della morte 
versione per ZX81 16K 


“5 CLS 

1® DIM fi (3, 11) 

3® DIM B (3,3) 

3® DIM C|<38) 

5® RAND 0 
6® FAST 

?® PRINT TAB 6; "Lfl VALLE DELLA 
MORTE" 


3® LET MOSSE*® 


3® 

10 ® 

11 

ìa 


LÉT FORZA*® 

LET F*® 

LET M*1 
_ LET N*S 
13® LET X*8 
14® LET TOT*® 

1S0 LET UR*63 

17® PRINT RT 6 , 88; "THE LI0HT"jT 
AB 83) "BRIQRDE" , , ,TAB 85;"RBC"iT 
AB 85; "DEF" ; TAB 85;"0HI";AT 10,8 
a, "RECORD*" ;ur 
18® LET B®*" " 
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190 POR I«1 TO 3 

200 POR J«1 TO 11 

210 LCT R ( I , U) «INT (RND*9+1) 

220 GOTO 230+ (3-1) *20 

230 PRINT RT 4+U , 8; A ( 1 , J) ; " . . . . 

"i R <3, U) 

240 GOTO 270 

250 LET Bt «B t +CHRI (28+fì(2,J)) 

270 NEXT J 

260 NEXT I 

290 PRINT TRB 9;Bi 

300 GOSUB 1200 

310 SLOU „ „ 

320 LET MOSSE «MOSSE +1 

330 PRINT RT 21,0; "SPARA: R - I 

DIREI . : S - R - D" 

340 IP MOSSECI TMEN PRINT RT 21 

, 0 ; "avanza nellr valle 

350 INPUT BJ „ ^ 

360 PRINT RT 20 , 0 ; C9J’ TRB 0; CJ 
370 IP NOT ( (LEN Bt«2 AND MOSSE 
>1) OR (LEN B I «1 RND MOSSECI)) T 
HEN GOTO 330 
360 LET BI«BI+6| 

385 LET X«0 

390 LET X« (CODE B» (2) «56) + (2 AN 
D CODE Bt (2) «38) + (3 RND CODE B* ( 

2 400 1 IP X«0 TMEN GOTO 330 
410 IP MOSSE»! TMEN GOTO 650 
420 IP CODE 61 <36 OR CODE Bl>46 
TMEN GOTO 330 

430 LET G«INT ((CODE B*-37.5)/3 

'440 LET M-CODE Bt-37-3* (G-l) 

450 IP B(Q,M)<1 TMEN GOTO 330 
460 LET SPRRO«-l 
470 LET D$«" *" 

480 LET RRNGE«B (G , M) 

490 LET MI-M+G-2 

Ìli tiTtì}?®?* I<1 THÉN GOTO 
330 

510 GOSUB 1400 

520 IP SPARO — l.l TMEN GOTO 330 
530 IP PUNTI >0 TMEN PRINT RT 21 
1 0 ; "BUON COLPO. PUNTEGGIO " i PUN 

54.0 GOSUB 1900 

550 LET P-SON (9.5-MOSSE) 

560 LET M«M+F 

580 Ip"^N*> l^AND N < 1 1 TMEN GOTO 6 
10 

590 LET N«N-X+2 
600 LET X«2 
610 GOSUB 1200 

620 LET Q1«B (3, 1) +B (3,2) +B (3,3) 
630 LET Q2«Q1+B (2 , 1) +B (2 ,2) +8 (2 

*640 IP MOSSE «20 OR (M0SSE«19 RN 
D 01<«-3) OR (MQSSE«18 RND 02<*- 

6) TMEN GOTO 2000 
650 POR X«1 TO 3 
660 PRINT RT 21,0;CÌ 
670 LET SPRRO-1 
680 LET R«3 

690 IP MOSSE > 17 TMEN LET R«20-M 
OSSE 

695 LET 0«N+ 1 
700 LET P«N 

705 IP X < > 2 TMEN LET G«M + 1 

710 IP X < >2 TMEN LET P«M+3-R 

720 POR V«P-1 TO 0 

730 IP A (X , V) < >0 TMEN GOTO 770 

740 NEXT U 

750 NEXT X 

760 GOTO 320 


765 IP X < > 2 TMEN LET P«M 
770 IP X «2 TMEN LET R«3 
775 LET CRNNONI»INT (RND*R+2-R) 
780 IP A (X , P+CRNNONI) «0 TMEN GO 
TO 770 

790 LET M I «P +CANNQN I 
800 LET RflNGE«fi (X , MI) 

810 LET N I «M I 

620 IP X«2 TMEN LET MI«12 

830 IP X < > 2 TMEN LET NI«(X-1)*6 

840 LET D9«"X" 

850 PRINT RT 8.0. "SPARO " ; X 
860 GOSUB 1400 

870 IP PUNTI <0 TMEN PRINT RT 21 
, 0. "COLPITO - PERDI ";ABS PUNTI; 
RT 8+G.24+M, 


880 
890 
900 
1200 
1210 
1260 
Zi " . . . " 

; trb Z; 

1270 POR 


GOSUB 1900 
IP PORZR < «0 
GOTO 750 
LET Z-N+7-X+2 
DIM C (11, 11) 

PRINT RT 3+M-P.Z, 

; TRB Zj " RT 

It II 


TMEN GOTO 2000 


o,z; 


TRB 


G«1 TO 3 
1280 POR H«1 TO 3 
1290 IP MOSSE >0 TMEN GOTO 1320 
1300 LET B (G , M) «INT (RND*9 + 1) 
1310 LET PORzR «PORZfl+B (G , M) 

1320 IP MOSSE >17 RND B(G,M)«-1 R 
ND M +G -2 < 1 TMEN LET B(G,M)«-28 
1330 PRINT RT 2+M+G , 6+N+M; CMRI ( 
28+8 (G.M) ) 

1340 IP M+G-2 >0 TMEN LET C (M+G-2 
, N +H -2 ) «B (G.M) 

1350 NEXT M 
NEXT G 
RETURN 
LET PUNTI-0 
POR S«l TO RRNGE 
LET T«-S*SPRRO 
LET U«S* (2-X) *SPRRO 
IP X < > 2 TMEN LET T«0 
PRINT RT MI+T+4 .NI+U+8, Dt 

IP NI + U < 1 OR NI +U > 1 1 OR MI + 
TMEN GOTO 1490 
IP C (MI+T ,NI+U) >0 TMEN GOTO 


1360 
1370 
1400 
1410 
1420 
1430 
1435 
1440 

1450 
T > 1 1 
1460 
1550 
1470 NEXT S 
1480 RETURN 
1490 LET RANGE«S-1 
1500 LET Y «MI 
1510 IP X=2 TMEN LET Y«NI 
1520 LET PUNT I «R (X , Y ) 

1530 LET fl (X.Y) «0 
1540 RETURN 

1550 IP SPRRO«-l TMEN GOTO 1650 

1570 LET RRNGE«S 

1580 LET G«MI+T-M+2 

1590 LET M-NI+U-N+2 

1600 LET PUNTI«-B (G.M) 

1610 LET PORZR «PORZR +PUNTI 

1620 LET B (G.M) «-1 

1630 LET C (M+G-2 .N+M-2) «0 

1640 RETURN 

1650 LET SPRO«-l.l 

1655 PRINT RT 21,0, "SPARO ILLEGA 

LE - PASSI IL TURNO" 

1660 GOSUB 1200 
1670 RETURN 

1900 LET TOT «TOT +PUNT I 

1910 PRINT RT 18,0, "PUNTEGGIO " ; 

TOT; " 

1920 IP RRNGE «0 TMEN RETURN 
1930 LET Dl«" . ” 

1935 PRINT RT 8,0;" 

1940 GOSUB 1400 
1950 RETURN 
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2000 PRINT RT 19,0, "FINE DELLA B 
ATTAGLIA" ; TRB 0; "NESSUN SOPRAVVI 
S3UTO" 

2010 IF FORZA >0 THEN PRINT AT 20 
, 0 J ” UHJ I FORZA," AGO .TI AL PUN 
TEGGIO" 

2020 LET PUNTI-FORZA 
2030 G03UB 1900 

204.0 PRINT AT 21,0, "IL RECORD RI 
MANE INUARIATO" 

2050 IF TOT >UR TMEN PRINT AT 21, 
0, "MAI BATTUTO IL RECORD - BRRUO 

2060 FOR 1-1 TO 60 
2070 NEXT I 
060 PRINT AT 0,0, 


J 


2090 IF INKEY 9 ■ " S " TMEN RUN 
2100 IF INKEY !■"" TMEN GOTO 2090 
2110 STOP 

2500 SAUE " UALLEMORTE " 

2610 RUN 



Libri firmati 

JACKSON 


VOI 

E L INFORMATICA 



Alan Miller 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Un’opera base per chi 
desidera costruirsi una 
“libreria” di programmi in 
grado di risolvere i più 
frequenti problemi 
scientifici e ingegneristici. 
372 pagine L. 25.000 
Codice 554P 

Franco Filippazzi 
Giulio Occhini 
VOI E L’INFORMATICA 
L’opera che il manager 
moderno non può ignorare. 
In 100 tavole: gli strumenti 
dell’Informatica, 
l’Informatica e l’Azienda, 
realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I 

MICROPROCESSORI 

Un fantastico viaggio alla 
scoperta del “cervello” 
elettronico: la funzione 
del microprocessore, 
delle memorie ROM e RAM, 
delle interfacce... 

126 pagine L. 10.000 
Codice 342A 


Giuseppe Saccardi 

TRASMISSIONE DATI 
Dispositivi standard e 
protocolli 

Il calcolatore e le sue 
infinite applicazioni nel 
campo delle comunicazioni 
applicate a tutti i settori in 
cui si articola la società 
moderna. Un libro che 
traduce in tecnologia la 
profezia orwelliana di 
“1984” 

308 pagine L. 23.000 
Codice 528P 

F. Franceschini 
F. Paterlini 
Voi e il vostro 
Commodore 64 
Uno strumento 
fondamentale per la 
comprensione e 
programmazione del 
Commodore 64. 

Con consigli, programmi 
testati, glossario e utili 
accenni di BASIC. 

256 pagine L. 22.000 
Codice 347 B 


La Biblioteca che fa testo 


E tu cosa aspetti 
a spedire il tuo 
programma? 


In busta chiusa, e senza impegno, inviate questo coupon a: 
Gruppo Editoriale Jackson -Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale 
della Biblioteca Jackson e informazioni sulle 10 Riviste 
specialistiche da voi pubblicate. 

(allego L. 1 .000 in francobolli per contributo spese di spedizione) 

□ Desidero ricevere contrassegno ll/i volume/i 


(pagherò al ricevimento L 

più L. 2.000 per contributo spese di spedizione) 

Nome Cognome 


Via 
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Il mondo del software e dei servizi di informatica è difficile da fotogra- 
fare. Una domanda che varia di continuo, prodotti nuovi giornalmen- 
te immessi sul mercato. Non solo. Lq realtà italiana è ancor più 
complessa, per caratteristiche uniche di lingua, cultura, organizza- 
zione. 

Un mercato difficile, con infinite variabili. Noi della J. Soft abbiamo 
una risposta a tutte queste istanze: anzi, tutte le risposte. Perchè 
siamo un editore di software, di riviste e di libri su supporto magneti- 
co e su carta. 

In più, unici in Italia, distribuiamo su tutto il territorio nazionale, 
con una nostra rete di agenti, programmi nostri e della prima e più 
prestigiosa software-house indipendente del mondo: MICROSOFT. 
J. Soft con una struttura snella affronta con dinamicità tutti gli aspet- 
ti di questo nuovo mercato: dall’informazione alla formazione, dalla 
vendita all’assistenza post-vendita. 

Il nostro cliente è un amico, sia esso un dealer, un utente finale, un 
abbonato. 

Sempre a sua disposizione, raggiungibili telefonicamente con un nu- 
mero diretto (02-6888228), per aiutarlo a risolvere un problema, a 
chiarire un dubbio, a far tesoro di tutti i suoi suggerimenti. 

J. Soft vuole distinguersi per una filosofia commerciale di una geo- 
metrica semplicità: offrire il meglio, nella forma più adatta, a un 
prezzo conveniente, con il miglior servizio. 



Il soft-pnblisher amico 


20124 Milano - Via Rosellini, 12 Tel. (02) 6888228-683797-6880841/2/3 


di David Link 

trad. e adatt. 

di Marcello Spero 



Raggiungere lo spazioporto sa- 
rà per la vostra astronave un im- 
presa veramente difficile! 

V agamente ispirato ad uno dei più 
popolari “arcade”, Tunnel run vi 
porta ad esplorare con la vostra astro- 
nave un labirinto spaziale. Il gioco si 
compone di quattro fasi, durante le 
quali dovrete attraversare il tunnel dei 
missili, il campo di asteroidi, il tunnel 
contorto, per portare infine il vostro 
veicolo ad un perfetto atterraggio sulla 
piazzola dello spazioporto. 

Il programma basa il suo funzionamen- 
to sul fatto che dando alla variabile di 
sistema SCRCT, all’indirizzo 23692, 
valori compresi fra uno e 255, lo scher- 
mo scorrerà verso l’alto per un numero 
corrispondente di volte senza che vi 
venga posta l’infernale domanda 
“scroll?”. 

I tasti usati per muoversi sono sempre il 
“5” per spostarsi a sinistra, e l’“8” per 
spostarsi a destra. In aggiunta a questi, 
durante il secondo stadio del gioco il 
tasto “0” serve a fare fuoco, per di- 
struggere l’astronave blu che appare di 
tanto in tanto. Attenti, però: ogni volta 
che userete il vostro laser, perderete 
20 punti; in caso di centro, comunque, 
ne guadagnerete 100. 

Nell’ultima fase di gioco dovrete cerca- 
re di atterrare sulla piazzola gialla. In 
questo stadio avrete a disposizione il 
comando “R”, per azionare i retrorazzi. 
oltre naturalmente, ai due tasti di dire- 
zione. 

Se vi dovesse capitare, alla fine del 
gioco, di fermare accidentalmente il 
programma, fatelo ripartire con GO 
TO 45. Dando RGN, infatti, perdereste 


la registrazione del precedente record, 
proprio come se aveste appena carica- 
to il gioco. 

Per quanto riguarda il lavoro di trascri- 
zione, non ci sono particolari proble- 


mi; il programma, infatti, non è né lun- 
go né complesso, adattandosi ugual- 
mente bene al 16K come al 48K. 
Detto questo, a voi i comandi e buon 
divertimento! 



mwmk 


Corsa nel tunnel 

versione per ZX Spcetrum 16K/48K 

1 FOR f =0 TO 7 

2 READ a: POKE USR "L"+f,a 

3 NEXT f 

4 DATA BIN 00000000, BIN 010 
00010, BIN 10011001, BIN 10 
1 1 1 1 01 , BIN 1 1 1 1 1 111 , BIN 1 
001 1 001 , BIN 01 00001 0, 


BIN 00000000 
10 FOR f =0 TO 7 
20 READ a: POKE USR "P"+f,a 
30 NEXT f 

40 DATA BIN 011 11 110, BIN 001 
11100, BIN 00011000, BIN 01 
1 1 1 1 1 0 , BIN 01 1 1 1 1 1 0 , BIN 0 
1 1 11 1 1 0,BIN 01 01 1 01 0, 

BIN 0001 1 000 

41 LET hi=0 : LET z=0 
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42 BORDER 6: PAPER 6: INK 1: 

CLS 

43 PRINT " TUNNEL 

R U N" ' ''"'Sei stato sfidat 
o ad esplorare un compless 
o labirinto spaziale Rientr 
erai vivo alla base?" '' "Il 
labirinto e' composto da 
quattro sezioni "1 > Tun 
nel dei missili"' "2> Astero 
idi (tasto '0' = fuoco) "'"3 
> Tunnel contorto" ' "4> Piaz 
zola di atterraggio"'" (t 
asto 'R' = retrorazzi, 

atterra sulla zona gial 

la) " 

45 PRINT ''"PREMI UN TASTO PER 

INIZIARE!" 

46 IF INKEY$<>" " THEN 

GO TO 46 
48 PAUSE 0 

50 LET a = l 5 : LET sc = 0 

70 BORDER 1: PAPER 1: INK 0: 
CLS 

80 PRINT AT 21 , 0 ; " { 1 0SG8 } 

{1 5SG8}" 

90 FOR f=l TO 200 
95 IF a<=9 OR a>=l 7 THEN 
GO TO 900 

100 PRINT AT 0 , a ; "P" 

110 POKE 23692 , 255 
112 LET a=a+ ( INKEY$="8" ) - ( 
INKEY$="5" ) 

1 1 7 PRINT AT 21,0; 

120 PRINT AT 2 1 , INT (RND*7)+10; 
INK 6 ; " t " 

130 PRINT INK 4 ; " { 1 0SG8 } 

{1 5SG8}" 

1 40 LET b=ATTR (0,a) 

1 50 IF b<>8 AND boi 2 
THEN GO TO 900 
1 55 LET sc=sc+l 
157 BEEP .005,0: BEEP .005,-2 

1 60 NEXT f 

170 FOR f=l TO 22 

180 PRINT AT 0 , a ; "P" 

190 LET a=a+ ( INKEY$="8" ) - ( 
INKEY$="5" ) 

195 POKE 23692,255. 

200 PRINT AT 21,0;" 

II 

210 PRINT " 



220 LET b=ATTR (0,a) 

230 IF b<>8 AND boi 2 
THEN GO TO 900 
240 LET sc=sc+l 
250 BEEP .01,0: BEEP .01,-2 
260 NEXT f 

270 PRINT AT 0,a;"P" 

280 PRINT AT 10,10; FLASH l;"Pu 
nt i " ; se 

290 FOR f=l TO 5 
300 FOR n=l 0 TO 20 
31 0 BEEP . 1 ,n 
320 NEXT n 
330 NEXT f 
340 PAUSE 250 

342 BORDER 2: PAPER 2: CLS 

343 PRINT AT 0 , a ; " P " 

345 FOR f=l TO 3 

350 BEEP .2,-2: BEEP .3,-2: 

BEEP .5,3.2 
360 NEXT f 
370 BEEP 1,3.2 
375 LET c=20 
380 FOR f=l TO 200 
390 PRINT AT 0,a;"P" 

400 LET a=a+ ( INKEY$="8" ) - ( 
INKEY$ = " 5 " ) 

410 IF INKEY$<>"0" THEN 
GO TO 480 
41 5 LET sc = sc- 2 0 
420 FOR n=l TO 21 
430 PRINT AT n ,a ; INK 6;"|" 

435 NEXT n 

440 IF aOc THEN GO TO 470 
450 LET sc=sc+l 00 
460 FOR x=l TO 30: PRINT AT 21, 
c; INK 6; PAPER 0; FLASH 1; 
"#": NEXT x 
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470 FOR n=l TO 21: PRINT AT n,a 
; " " : NEXT n 

480 POKE 23692,255 

481 IF z=5 THEN PRINT AT 17,c; 

Il 11 

485 PRINT AT 21,0; INK 3; 

BRIGHT 1 ;"###"; AT 21 ,31 ; 
INK 3; BRIGHT 1;"#" 

490 PRINT " 

II 

500 PRINT AT 21 , (RND*30) ; INK 4 

• Il ©H 
f 

520 LET b=ATTR (0,a) 

530 IF boi 6 THEN GO TO 900 
535 IF z< 5 THEN GO TO 559 
540 LET c=RND* 27 + 3 
555 BEEP .005,0: BEEP .005,-2 

557 PRINT AT 21, c; INK 1 ; "L" 

558 LET z=0 

559 LET z=z+l 

560 NEXT f 

570 FOR f=l TO 22: PRINT AT 21, 

0 ; " 

": NEXT f 

575 BORDER 3: PAPER 3: CLS 
580 PRINT AT 0,a;"P" 

590 PRINT AT 10,10; FLASH l;"Pu 
nt i " ; se 

600 BEEP 1,9: BEEP 1,10.7: 

BEEP 1,9: PAUSE 1 30: 

BEEP 2,0 
605 LET tu=l 3 
607 PRINT AT 10,10;'' 

II 

610 FOR f=l TO 172 
62 0 PRINT AT 0 , a ; " P" 

630 LET a=a+ ( INKEY$="8 " ) - ( 
INKEY$="5" ) 

640 POKE 23692,255 

650 LET tu=tu+ (RND> . 5) - (RND< . 5) 

660 LET tu=tu+ (tu<l ) - (tu>24) 

670 PRINT AT 21, tu; PAPER 3; 

INK 0;" " 

675 IF RND> . 7 THEN PRINT AT 21 
, ( RND* 5 ) +tu ; INK 1 ; "L" 

680 PRINT INK 7; BRIGHT 1;" 

{ 32SG8 } " 

685 IF f>l 49 THEN PRINT AT 21, 
0; PAPER 3; INK 0;" 

•I 

690 LET b=ATTR (0,a) 

700 IF b<>24 THEN GO TO 900 
705 LET sc=sc+l 


710 BEEP .005,0: BEEP .005,-2 
720 NEXT f 

730 BORDER 0: PAPER 0: INK 7: 
CLS 

732 PRINT AT 0,a;"P" 

734 LET g=INT (RND*30)+1 

73 5 PRINT AT 15,0; INK 1 ;"##### 

########################### 

11 

736 FOR f = 1 6 TO 21: PRINT AT f, 
0; INK 2 ; " { 32SG8 } " : NEXT f 

737 PRINT AT 15,g; INK 6;"#" 

738 LET x=0 

739 PAUSE 150: LET ox=0: LET oa 
=a 

740 PRINT AT ox,oa;" ";AT x,a;" 
P" 

745 LET oa=a: LET ox=x 

750 LET a=a+ ( INKEY$ = "8" ) - ( 
INKEY$ = " 5 " ) 

755 LET a=a+ (a<0) - (a>31 ) 

760 LET x=x+l 
765 PAUSE 5 

770 IF INKEY$="r" THEN LET x=x 
-2* (x>l ) 

780 IF x>=l 5 THEN GO TO 800 

785 BEEP .005,0: BEEP .005,-2 
790 PRINT AT x,a;" ": GO TO 740 

800 IF aOg THEN GO TO 900 
810 PAPER 0: INK 7: FLASH 1: 

CLS 

830 PRINT AT 5, 10; "PUNTI " ; se 

832 IF sc>hi THEN LET hi=sc 

833 PRINT AT 8, 10; "RECORD ";hi 
835 CIRCLE 125,85,80 

840 FOR f=l TO 20: BEEP .01, f: 
NEXT f 

850 GO TO 920 

900 CLS : INK 6: PRINT AT 10,0; 
"Sei stato disrutto" '' "Hai 
totalizzato ";sc;" punti" 

915 FOR f =0 TO -10 STEP -1: 

BEEP .01 , f : NEXT f 
920 PRINT : PRINT "Premi s per 
un altra parti ta "n per 
smettere" 

93 0 IF INKEY$ = " " THEN GO TO 9 3 
0 

935 FLASH 0: CLS 

948 IF INKEY$="s" THEN GO TO 4 
5 
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di Massimo Magnani 



Descrizione del 

programma 

Linee 

Commento 

20 

Funzione che traduce in stringa esadecimale il valore 
dato come argomento. 

50-100 

Riportano in n il contenuto della locazione corrente ed 
in n$ il corrispondente valore esadecimale. 

150 

Prende il primo codice operativo in op e lo stampa. 

200 

Riporta in h$ il valore di d come numero esadecimale di 

2 byte. 

900 

Riporta in x e y il valore dei bit 3-5 e 0-2 di op. 

1000-1020 

Vari modi di indirizzamento. 

1100-1120 

Scompongono x$ alla l a parentesi. 

1500 

Trova il registro interessato. 

1600 

Trova la giusta condizione. 

1700 

Trova operazione aritmetica o logica. 

1800 

Trova operazioni di shift o rotazione. 

4000-4500 

Data. 

6000-6090 

Programma DUMP. 

6500-6540 

Assegnazione indirizzi e opzione stampante. 

6000-6660 

Traduce se necessario il numero esadecimale in deci- 
male. 

7000-7005 

Scelta programma (DUMP-DIZ80). 

7010 

Inizio DISASSEMBLER. 

7015-7024 

Inizializzazione. 

7030-7180 

Corpo principale. 

7200-7240 

Controllano se è finita l’elaborazione, se no, passa alla 
prossima istruzione. 

7260-7340 

Se il codice operativo è CBh. 

7400-7827 

Se c’è indirizzamento indicizzato. 

7900-8255 

Se il codice operativo è EDh. 

9000 

Codice non riconosciuto. 


Un utile programma disassembla- 
tore per lo Spectrum 


C oloro che sanno programmare in 
linguaggio macchina troveranno 
senz'altro utile poter controllare facil- 
mente i loro programmi esaminando il 
disassemblato del codice oggetto e an- 
che coloro che desiderano avvicinarsi 
a questo meraviglioso modo di pro- 
grammare potranno trovare numerosi 
spunti dal tradurre facilmente le nume- 
rose routine che si trovano in quasi tut- 
ti i programmi commerciali. 

Il programma è scritto interamente in 
BASIC e sta nei primi 16Kbyte di RAM. 
Per rendere il programma più veloce 
sono stati usati i numeri di linea più 
bassi per le routines usate di frequen- 
te, comunque la linea 1 permette di far 
partire il programma col solito RUN. 

All'inizio bisogna scegliere fra le due 
opzioni DUMP e DIZ80: con la prima si 
ottiene in uscita un lista (in esadecima- 
le) dei valori in memoria ed il loro 
equivalente simbolo ASCII (utile per le 
tabelle), con la seconda si entra nel di- 
sassemblatore vero e proprio. Alla ri- 
chiesta degli indirizzi si può risponde- 
re sia con numeri decimali che con 
esadecimali, nel secondo caso è neces- 
sario far seguire al numero la lettera 
“h” (non ha importanza se le lettere 
eventualmente presenti nel numero 
sono maiuscole o minuscole). 

Usando il disassemblatore si può deci- 


dere di far fermare l’elaborazione in 
corrispondenza dei codici di fine routi- 
ne e di salto incondizionato, in questo 


caso se si desidera proseguire col di- 
sassemblato occorre digitare il coman- 
do CONTINUE. 


Disassembler Z80 

versione per ZX Spectrum 16K/48K 

1 GO TO 7000 

20 DEF FN q$ (n) =CHR$ (48+INT ( 
n/1 6) +7* (n> = l 60) ) +CHR$ (48 + 
n-INT (n/1 6) *1 6+7* (n-INT (n 
/I 6) *1 6> = 1 0) ) 

49 REM *** LEGGE BYTE *** 

50 LET n=PEEK an 

100 LET n$=FN q$ (n) : RETURN 


150 LET an=an+l : GO SUB 50: 
PRINT n$;: LET op=n: 

RETURN 

199 REM * H$=D in esadecimale * 

200 LET j=INT (d/256) : LET h$= 
FN q$ ( j ) : LET j$=FN q$(d-j* 
256) : LET h$=h$+j$ : 

RETURN 

900 LET x=INT ((op-k)/8): LET y 
=Op-k-X* 8 : RETURN 
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1000 PRINT TAB ts;x$: GO TO 7200 

1 001 GO TO 1010 

1002 GO SUB 150: LET aa=n: LET y 
$=n$ : GO SUB 150: PRINT 
TAB ts ; x$ ;n$ ;y$ ; "h" ;TAB td; 
aa+n*256: GO TO 7200 

1003 GO SUB 150: LET j$=n$: 

LET aa=n: GO SUB 150: 

GO SUB 1100: PRINT TAB ts ; 
x$ ;n$ ; j$ ; "h" ; y$ ;TAB td;aa+2 
56*n: GO TO 7200 

1004 GO SUB 150: PRINT TAB ts;x$ 
;n$ ; "h" : GO TO 7200 

1005 GO SUB 150: LET x$=x$+" ("+z 
$+"+"+n$+"h) " : RETURN 

1006 GO SUB 150: GO SUB 1100: 

PRINT TAB ts ; x$ ; n$ ; "h" ; y$ : 

GO TO 7200 

1010 GO SUB 150: IF op>l 27 

THEN LET op=op-256 

1020 LET d=an+op+l : GO SUB 200: 

PRINT TAB ts ; x$ ;h$ ; "h" ; 

TAB td; d: GO TO 7200 

1100 LET b=0 : FOR t=l TO LEN x$ 

1110 IF x$(t)="(" THEN LET b=t 

1120 NEXT t: LET y$=x$ (b+1 TO ): 

LET x$=x$( TO b) : RETURN 

1500 RESTORE 4200: FOR t=0 TO re 
g: READ y$ : NEXT t: LET x$= 
x$+y$ : RETURN 

1600 RESTORE 4300: FOR t=0 TO x: 

READ y$ : NEXT t: LET x$=x$ 
+y$ : RETURN 

1700 RESTORE 4100: FOR t=0 TO x: 

READ x$ : NEXT t: RETURN 

1800 RESTORE 4400: FOR t=0 TO x: 

READ X$ : NEXT t: RETURN 

4000 DATA "ONOP" , " 2LD BC , " , "OLD 
(BC) , A" , "0INC BC" , " 0 INC B", 
"0DEC B" , "4LD B , " , " 0RLCA" , " 
0EX AF,AF' " , "0ADD HL , BC" , " 0 
LD A , ( BC ) " , " 0 DEC BC","0INC 
C" f " 0DEC C" ,"4LD C,","0RRCA 
" , " 1 DJNZ " , " 2LD DE," 


st v=a^,*ii : l.jst a^,4)=ai 
,4) s LET a ( 3, 4) =a (2,4) : 

LET a (2, 4) =a (1,4) : LET a 
i) =v: GO TO 116 
ST v=a (4,4) : LET 
,3) : LET a (4 , 3) 

LET a (4, 2) =a(4/ 

L) =v: GO TO l/ 

ST v=a (3,4) : / 
r 3) : LET a ( 

LET a (3, 2) «. 

L)*v: GO TO 
ST v=a (2,4) 
r 3) : LET a ( 

LET a (2, 2) » 

L) *v: GO TO 
ST v=a (1,4) : 

,3) : LET a (17 
LET a (1,2) 

L)*vs GO 
ST v=a {J 

,*)i ^a(3, 

LI ET a (4 

i. 

LET a(l,3)=a( 
a (2, 3) *a (3, 3) : 

1 X » t . . 



rf 

R$ 144;" 
CHR$ 160;" "; 

PRINT FLASH 1;AT 7 
SAGLIO COLPITO, COMP 

n 

4040 PRINT " X— ";x 

4041 PRINT " y= ";y 


4020 DATA "1JR Z,","0ADD HL , HL" , 
"3LD HL , ( ) " , " 0DEC HL","0lNC 
L","0DEC L" , " 4LD L,","0CPL 
" , " 1 JR NC , " , " 2LD SP,","3LD 
( ) , A" , " 0 INC SP " , " 0 INC (HL)" 
, "0DEC (HL) " , "4LD (HL)," ,"0 
SCF" , " 1 JR C,","0ADD HL,SP", 
"3LD A,'( ) " , "0DEC SP","0INC 
A" , " 0DEC A" , " 4LD A f " f "0CCF" 


4100 DATA "ADD A,","ADC A f " f "SUB 
" ,"SBC A , " f "AND " ,"XOR "," 
OR ","CP " 

4200 DATA "B" , "C" , "D" , "E" , "H" , "L 
"," (HL) " f "A" 

4300 DATA "NZ " , " Z " , "NC" , "C" , "PO" 
,»PE" ,"P" ,"M" 

4400 DATA "RLC " ,"RRC ","RL " ,"R 

R " , "SLA " , " S RA "SRL 

11 

4500 DATA "OPOP BC" , " 0RET" f " OPOP 
DE" , "0EXX" , "OPOP HL" , "0 JP 
(HL) " , "OPOP AF'V'OLD SP,HL" 
, "2 JP "," " , "60UT ( ) , A" , " 61 
N A, ( ) " , " 0EX (SP) ,HL" , "0EX 
DE,HL" , "ODI" , "0EI" , "0PUSH B 
C" , " 2CALL " ,"0PUSH DE"," ", 
"0PUSH HL"," " , "0PUSH AF"," 


4010 DATA "OLD (DE) , A" , " 0 INC DE" 
, " 0 INC D" , "0DEC D" , " 4LD D," 
, "ORLA" , " 1 JR " , " 0ADD HL,DE" 
, "OLD A, (DE) " , "0DEC DE", "01 
NC E" , " 0DEC E" , " 4LD E,", "OR 
RA" , " 1 JR NZ , " , " 2LD HL,","3L 
D ( ) , HL" , " 0 INC HL" , " 0 INC H" 
, " 0DEC H" , " 4LD H , " , " 0DAA" 


6000 REM *** DUMP *** 

6010 GO SUB 6500: LET an=a: 

PRINT 

6030 LET x$=" " : LET d=an: 

GO SUB 200: PRINT h$;"- "; 

6040 FOR y=l TO 8: GO SUB 50: 
PRINT n$ ; " "; 
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6050 IF n< 32 OR n>127 THEN 

LET x$=x$+"?" : GO TO 6080 
6060 LET x$=x$+CHR$ n 
6080 LET an=an+1 : IF an>am 

THEN PRINT TAB 38;x$: 
CLOSE #2: STOP : RUN 
6090 NEXT y: PRINT TAB 38;x$: 

GO TO 6030 

6500 INPUT "START ? LINE X$ ' " 
STOP ? LINE y$ : GO SUB 6 
600: LET a=n: LET x$=y$: 

GO SUB 6600: LET am=n 
6520 INPUT "OUTPUT ON PRINTER (s 
/n) ?" ; z$ : LET pr = 0: IF z$ = 

"s" THEN OPEN #2 , "p" : 

LET pr = l 
6540 RETURN 

6600 IF x$ (LEN x$)<>"h" AND x$ 
(LEN x$ ) < > "H" THEN LET n 
= VAL x$ : RETURN 
6610 LET j = 1 : LET n=0: FOR t= 

LEN X$-l TO 1 STEP -1: 

LET k=CODE x$(t) 

6620 IF k<48 OR k>70 THEN 
GO TO 6650 

6630 IF k>57 AND k<65 THEN 
GO TO 6660 

6640 LET n=n+ (k-48- (7 AND k>64) ) 
* j : LET j = j * 1 6 : NEXT t: 
RETURN 

6650 IF k>96 AND k<103 THEN 
LET k=k- 32 : GO TO 6640 
6660 PRINT #1 ; x$ ; " : ESADECIMALE 
ERRATO": PAUSE 0: RUN 

6999 REM *** INIZIO ** 

7000 INPUT "1) DUMP 2) DIZ-8 

0"' "scegli ?";x$: IF x$="l " 

THEN GO TO 6000 
7005 IF x $ < > " 2 " THEN GO TO 70 
00 

7009 REM *** DI S ASSEMBLER *** 

701 0 GO SUB 6500 

7012 INPUT "Opzione JP/RET (s/n) 
?";x$: LET opz=0: IF x$="s 
" OR x$="S " THEN LET opz=l 

7015 PRINT "DISASSEMBLAGGIO : " 

' a ; " < = > " ; am ; " - " ; : LET d 


7020 

7024 

7030 

7040 

7070 

7080 

7090 
71 00 


71 1 0 


=a : GO SUB 200: PRINT h$;"h 
<=>";: LET d=am: GO SUB 200 
: PRINT h$ ; "h" 

LET pp=- 1 : LET cb=203 : 

LET dd=221 : LET ed=237: 

LET fd=253 : LET ts=14: 

LET td=27 : LET an=a 
PRINT '"LOC. ISTR. " ; TAB ts 
; "SIMBOL. " 'TAB 6;"macch."; 
TAB td; " (dee) " ' ' 

LET d=an: GO SUB 200: 

PRINT h$ ; " 

GO SUB 50: PRINT n$;: LET o 
p=n : LET pp=op: IF op=cb 
THEN GO TO 7260 
IF op=ed THEN GO TO 7900 
IF op=dd THEN LET z$="IX": 
GO TO 7400 


IF op=fd THEN LET z$="IY": 
GO TO 7400 

IF op< 64 THEN RESTORE : 

FOR t=0 TO op: READ x$ : 
NEXT t: LET d=VAL x$ ( 1 ) : 
LET x$=x$ ( 2 TO ): GO TO 10 
00+d 

IF op>=l 28 THEN GO TO 7140 


7120 IF op=l 1 8 THEN LET x$="HAL 
T": GO TO 1000 

7130 LET x$="LD ": LET k=64: 

GO SUB 900: LET reg=x: 

GO SUB 1500: LET x$=x$+"," 
: LET reg=y : GO SUB 1500: 

GO TO 1 000 

7140 IF op< 1 92 THEN LET k=128: 

GO SUB 900: GO SUB 1700: 

LET reg=y : GO SUB 1500: 

GO TO 1 000 

7150 LET k = l 92 : GO SUB 900: IF y 
=0 THEN LET x$="RET ": 

GO SUB 1600: GO TO 1000 

7155 IF y=2 THEN LET x$="JP " : 

GO SUB 1600: LET x$=x$+"," 
: GO TO 1 002 

7160 IF y=4 THEN LET x$="CALL " 
: GO SUB 1600: LET x$=x$+", 
": GO TO 1002 

7165 IF y=7 THEN LET x$="RST "+ 
(FN q$ (x*8) ) +"h" : GO TO 100 
0 

7170 IF y=6 THEN GO SUB 1700: 

GO TO 1 004 

7180 LET x=x+8 * INT (y/2) : 

RESTORE 4500: FOR t=0 TO x 
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: READ x$ : NEXT t: LET d= 
VAL x$ ( 1 ) : LET x$=x$ ( 2 TO ) 

: GO TO 1000+d 
7190 REM *** CONTINUA *** 

7200 IF pp=l 95 OR pp=24 OR pp=20 
1 OR pp=233 THEN GO TO 723 
0 

7205 LET an=an+l : IF an>am 

THEN CLOSE #2: STOP : 

RUN 

721 0 GO TO 7030 

7230 PRINT : IF opz = 0 THEN 
GO TO 7205 

7235 CLOSE #2: STOP : IF pr 
THEN OPEN #2,"p" 

7240 GO TO 7205 

7250 REM *** OP=CBh *** 

7260 GO SUB 150 

7270 IF op>=64 THEN GO TO 7300 
7280 LET k=0 : GO SUB 900: IF x=6 
THEN GO TO 9000 
7290 GO SUB 1800: GO TO 7340 
7300 IF op< 128 THEN LET k = 64: 

GO SUB 900: LET x$="BIT 
GO TO 7330 

7310 IF op< 1 92 THEN LET k=128: 

GO SUB 900: LET x$="RES " : 
GO TO 7330 

7320 LET k = l 92 : GO SUB 900: 

LET x$="SET " 

7330 LET x$=x$+STR$ X+", n 
7340 LET reg=y : GO SUB 1500: 

GO TO 1 000 

7390 REM *** INDICI *** 

7400 GO SUB 150: IF op=cb THEN 
GO TO 7600 

7410 IF op< 64 THEN GO TO 7550 
7420 IF op>=l 28 THEN GO TO 7500 

7430 LET x$="LD ": LET k=64: 

GO SUB 900: IF y=6 THEN 
GO TO 7470 

7440 IF x<>6 THEN GO TO 9000 
7450 GO SUB 1005: LET x$=x$+",": 
LET reg=y : GO SUB 1500: 

GO TO 1 000 

7470 IF x=6 THEN GO TO 9000 
7480 LET reg=x: GO SUB 1500: 

LET x$=x$+" GO SUB 1005 
: GO TO 1000 

7500 IF op>=l 92 THEN GO TO 7550 

7510 LET k = l 28 : GO SUB 900: IF y 
06 THEN GO TO 9000 , 
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7520 

7550 

7552 

7554 

7556 

7558 

7560 

7570 

7580 

7600 


761 0 


7620 

7630 

7640 

7650 

7660 

7670 

7709 

7724 

7725 

7734 

7735 

7740 

7741 

7742 

7743 

7756 

7757 

7796 

7797 

7798 

7799 

7800 

7801 
7804 


GO SUB 1700: LET x$=x$+",": 

GO SUB 1005: GO TO 1000 
IF op=33 THEN LET x$="LD " 
+z$+" : GO TO 1 002 
IF op=34 THEN LET x$="LD ( 
) ," + z$ : GO TO 1 003 
IF op=42 THEN LET x$="LD " 
+z$ + " , () ": GO TO 1 003 
IF op=52 THEN LET X$="INC 
" : GO SUB 1005: GO TO 1000 
IF op=53 THEN LET x$="DEC 
": GO SUB 1005: GO TO 1000 
IF op=54 THEN LET x$="LD " 
: GO SUB 1005: LET x$=x$+" , 
" : GO TO 1 004 

IF op>l 92 THEN LET Op=op- 1 
28 

LET x$="???" : GO SUB 7700+O 

p: GO TO 1 000 

LET x$="": GO SUB 1005: 

LET y$=x$ : GO SUB 150: 

IF op>=64 THEN GO TO 7630 


LET k=0 : GO SUB 900: IF y 
06 OR x=6 THEN GO TO 90 


00 

GO SUB 1800: LET x$=x$+y$: 
GO TO 1 000 

IF op< 128 THEN LET k=64: 

LET x$="BIT ": GO TO 7660 
IF op< 192 THEN LET k=128: 

LET x$="RES ": GO TO 7660 
LET X$= "SET ": LET k = l 92 
GO SUB 900: IF y<>6 
THEN GO TO 9000 
LET x$=x$+STR$ x+","+y$: 

GO TO 1 000 

LET X$="ADD " + z$ + ‘' ,BC" 
RETURN 

LET x$="ADD "+Z$+",DE" 
RETURN 

LET X$="INC "+Z$ 

RETURN 


LET x$="ADD "+z$+" , " + z$ 
RETURN 


LET x$= "DEC "+z$ 

RETURN 

LET x$ = " ADD "+Z$+" , SP" 
RETURN 


LET x$="POP "+z$ 
RETURN 

LET X$="EX (SP) ,"+Z$ 
RETURN 


LET x$="PUSH "+z$ 
RETURN 
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7805 LET x$ = "JP ("+z$+")" 

7820 RETURN 

7821 LET x$="LD SP,"+z$ 

7827 RETURN 

7899 REM *** 0P=EDh *** 

7900 G0 SUB 1 50 

7910 IF op< 64 OR op>l 91 THEN 
GO TO 9000 

7920 LET d=0 : IF op>=l 28 THEN 
GO TO 8000 

7930 LET k=64 : GO SUB 900: IF y 
<>0 THEN GO TO 7940 

7933 IF x=6 THEN GO TO 9000 
7937 LET x$="IN LET reg=x: 

GO SUB 1500: LET x$=x$+" , ( 
C) " : GO TO 1 000 
7940 IF yOl THEN GO TO 7950 
7943 IF x=6 THEN GO TO 9000 
7947 LET x$="OUT (C),": LET reg= 
x: GO SUB 1500: GO TO 1000 
7950 IF y<>2 THEN GO TO 7990 
7960 LET x$="ADC HL , " : IF x/2= 

INT (x/2) THEN LET x$="SBC 
HL, " 

7970 LET x=INT (x/2) : LET x$=x$+ 
("BC" AND NOT x)+("DE" 

AND X=1 ) + ( "HL" AND x=2)+(" 
SP" AND x=3) : GO TO 1000 
7990 IF y=3 AND (x<>4 AND x 
05) THEN LET d=y 


8000 

i 

8066 

8067 

8068 

80 69 

8070 

8071 

8074 

8075 

8076 

8077 

8078 

8079 
8082 
8083 

8085 

8086 
8087 

8090 

8091 

8093 

8094 

8095 

81 02 
81 03 
81 1 0 
81 1 1 
81 1 4 
81 1 5 
81 22 
81 23 
81 59 
81 60 
81 61 
81 62 
81 63 
81 67 
81 68 
81 69 
81 70 
81 71 
81 75 
81 76 
81 77 
81 78 
81 79 
81 83 
81 84 
81 85 
81 86 
81 87 
8255 
9000 
9900 


LET x$="???" : GO SUB 8000+O 

p: GO TO 1000+d 

RETURN 

LET X$="LD () ,BC" : RETURN 
LET x$="NEG" : RETURN 
LET x$="RETN": RETURN 
LET x$="IM 0": RETURN 
LET x$="LD I , A" 

RETURN 

LET X$ = "LD BC, () " 

RETURN 


LET x$=" RETI " 
RETURN 

LET x$="LD R, A" 
RETURN 

LET x$ = "LD () ,DE " 


RETURN 
LET X$="IM 
LET X$="LD 
RETURN 
LET x$="LD 
RETURN 
LET x$="IM 
LET x$="LD 
RETURN 


1 " : RETURN 
A, I" 

DE, ()" 

2": RETURN 
A, R" 


LET x$="RRD" 
RETURN 


LET X$ = ,, RLD" 


RETURN 

LET x$="LD () ,SP" 

RETURN 

LET x$ = "LD SP, () " 

RETURN 

LET X$="LDI " : RETURN 
LET x$="CPI" : RETURN 
LET x$="INI" : RETURN 
LET x$="OUTI " 

RETURN 

LET x$="LDD" : RETURN 
LET x$="CPD" : RETURN 
LET x$=" IND" : RETURN 
LET x$="OUTD" 

RETURN 

LET x$="LDIR": RETURN 
LET X$="CPIR": RETURN 
LET x$="INIR": RETURN 
LET x$="OTIR" 

RETURN 

LET X$="LDDR": RETURN 
LET x$="CPDR" : RETURN 
LET X$="INDR": RETURN 
LET X$="OTDR" 

RETURN 

LET x$="???" : GO TO 1000 
SAVE "DI Z- 80 " LINE 1 
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PRESENTA: 


GP 50 S STAMPANTE AD IMPATTO 


Piccola e compatta, realizzata con standard professionali, ottima per usi obbi- 
stici, la stampante GP 50 S è una stampante ad impatto con matrice di stampa 
5x8, 35 caratteri/secondo, 32 colonne, incorpora una interfaccia diretta per 
Sinclair ZX81 e SPECTRUM, densità caratteri 12 CPI, grafica, alimentazione 
carta a frizione, completa di alimentatore esterno. 

Stampa un originale ed una copia. 

Set di 96 caratteri ASCII. 

Dimensioni: 250x85x215 mm. 


ZX MICRODRIVE PER SPECTRUM 

Lo ZX Microdrive amplia la possibilità dello ZX Spectrum in quei 
settori, come quello della didattica e delle piccole ap- 
plicazioni gestionali, dove è necessaria una veloce ri- 
cerca del le informazioni memorizzate su un 
supporto magnetico. 

Ogni cartuccia per Microdrive può contenere da un mi- 
nimo di 85k byte a lOOk byte. Il caricamento di un pro- 
gramma da 48k byte avviene in circa 5 secondi. 

Altre caratteristiche sono i comandi di “LO AD, SAVE e VERI- 
FY” per la memorizzazione, il caricamento, e la verifica dei pro- 
grammi. Il comando “FORMAT” per l’inizializzazione delle car- 
tucce. Il comando “CAT” per ottenre sul video la lista dei files 
contenuti nella cartuccia, con l’indicazione dello spazio libero di- 
sponibile. Comando di “AUTO-RUN” per il caricamento. 


SINCLAIR ZX SPECTRUM 


SINCLAIR ZX SPECTRUM 




N.B 

Per collegare gli ZX Microdrive allo ZX Spectrum è necessario 
utilizzare l’interfaccia 1. 

L’interfaccia può gestire contemporaneamente fino a 8 ZX Micro- 
drive per un totale di 640 k byte. 

CARTUCCE M/D SUPPORTI MAGNETICI 
PER ZX MICRODRIVE 

Confezione da 2 e 4 pezzi. 


Lo ZX Spectrum, abbatte definitivamente la barriera fra home e per- 
sonal computer , e riunisce le due tipologie del computer e del video- 
game. Infatti ad una memoria e ad un sistema operativo da Personal 
Computer affianca i colori , l’animazione, e il software ricreativo 
ed educativo tipico dei videogame e degli home computer più evoluti. 
Il tutto, naturalmente, ad un prezzo significativamente inferiore a 
quello di una semplice consolle per videogiochi. 



ZX INTERFACE 1 

Indispensabile per il collegamento del ZX Microdrive. 

Incorpora una interfaccia RS 232 e un sistema di collegamento in rete locale; si connette alla parte po- 
steriore dello ZX Spectrum permettendo comunque il collegamento di altre espansioni periferiche 
dello ZX Spectrum. La interfaccia seriale RS 232, standard industriale universalmente adottato, per- 
mette il collegamento fra lo ZX Spectrum e una ampia gamma di periferiche e di altri computer dotati 
della medesima interfaccia. Grazie alla RS 232 è anche possibile trasmettere dati sulla linea telefoni- 
ca utilizzando un modem. Tutte le immagini contenute in uno schermo video possono essere trasferi- 
te in circa 3 secondi e il protocollo di collegamento permette a ogni stazione della rete di specificare 
quali sono le stazioni trasmittenti e riceventi. È inoltre possibile diffondere un messaggio a ogni ZX 
Spectrum collegato alla rete realizzando un interessante sistema di broadcasting. Ogni Sinclair ZX 
Spectrum può agire come unità di servizio per altri ZX Spectrum della rete pilotando una stampante 
ZX o qualsiasi altra periferica collegata tramite la interfaccia RS 232. Ogni ZX Spectrum può inviare e 
ricevere fìles dagli altri computer della rete sfruttando al massimo le possibilità offerte dallo ZX Mi- 
crodrive. La rete può essere costituita da 2 a 64 Spectrum. 


ZX INTERFACE 2 


È l’ultima novità in casa Sinclair per lo ZX Spectrum. Permette diutilizzare le nuovissime ZX ROM 
cartucce software di nuova concezione e di minime dimensioni. È previsto il collegamento per due 
JOYSTICK di tipo standard “9 poli D”. 

Con le nuove ZX ROM il programma è immediatamente caricato e pronto all’uso. 



Un display ad alta risoluzione professionale dal de- 
sign molto curato nelle linee e finiture, particolar- 
mente indicato per l’utilizzo con gli home e personal 
computer per le sue dimensioni ed il prezzo conte- 
nuto. 

Questo monitor prevede un ingresso con segnale 
PAL composito più il segnale audio. 

Dimensioni: 270x285x370 mm. 


MONITOR A COLORI 10” 
“TUTTO ITALIANO” 


SINCLAIR ZX SPECTRUM 

• Grafica a 256x192 punti-schermo. 

• 24 linee di 32 caratteri. 

• 8 colori indipendenti per testo, sfondo, riquadro. 

• Comandi di suono modulabili in frequenza e durata. 

• Vera tastiera multifunzione con maiuscole e minuscole. 
Tutti i tasti con funzione di ripetizione. 

• Compatibile con teletext. 

• Alta velocità LO AD e SAVE: 16k byte/100 audi. 

• Funzioni VERIFY e MERGE per programmi e archivi. 

• BASIC Sinclair esteso con funzioni a 1 tasto; 
controllo di sintassi. 

• Ampio software su cassetta. 

• 16 k byte ROM 

Versione da 16 k RAM e da 48 k RAM. 


JOYSTICK 
COMMAND 
“TRIGA” 

Il primo Joystick che ha il 
pulsante “FIRE” nel punto 
più naturale per l’uso, difatti 
il dito indice risponde più 
prontamente delle altre dita. 
Particolarmente adatto per I/F 
SINCLAIR 


GP 500 AS 

STAMPANTE AD IMPATTO 


“ALLA SCOPERTA 
DELLO ZX SPECTRUM” 

Nato dalla traduzione dei manuali ingle- 
si è costituito da ben 35 capitoli; tratta a 
fondo tutti i problemi relativi al collega- 
mento ed all’utilizzo dello Spectrum 
spingendosi fino alla programmazione 
Basic. La massima chiarezza e la facile 
consultazione, con l’ausilio della casset- 
ta DEMO/DID ATTICA fanno di que- 
sto manuale un elemento indispensabile 
per il possessore dello ZX SPECTRUM. 


Il tuo Spectrum è preziosissimo: difendilo con la “SUPER 
GARANZIA”! Rebit Computer, distributore per l’Italia dei 
prodotti SINCLAIR, ha messo a punto la nuova SUPER 
GARANZIA. 

Acquista lo ZX SPECTRUM presso un Rivenditore Au- 
torizzato e richiedi la “SUPER GARANZIA”; oltre ad 
una perfetta assistenza ed alla certezza del valore a 

del tuo autentico SPECTRUM, avrai dei vantaggi ^ 

immediati. 

Per questo uno SPECTRUM senza la “SUPER 
GARANZIA” è solo un mezzo SPECTRUM ! 


Dal piacevole design e ad un prezzo incredi- 
bilmente contenuto, la GP 500 AS è una 
stampante ad impatto con matrice di stam- 
pa 5x7, 50 caratteri/secondo, 80 colonne, 
incorpora una interfaccia Seriale RS232C che 
consente il collegamento diretto alla ZX INTER- 
FACE 1 SINCLAIR dello SPECTRUM. 

Caratteri normali ed espansi, grafica, alimentazione 
della carta a trattori (moduli continui) larghezza 
9”3/6. Stampa un originale ed una copia. 

Set di 96 caratteri ASCII e 44 caratteri e simboli. 
Dimensioni: 315x114x447 mm. 


L O A 



di Angelo Motta 
parte prima 


Giocate questo “classico” arcade 
sul vostro ZX81 


F ormula 1 è un gioco scritto intera- 
mente in linguaggio macchina, ad 
eccezione delle relative istruzioni che 
ho preferito scrivere in Basic per evita- 
re di aggiungere circa 700 codici mac- 
china ai 1069 già esistenti che i volon- 
terosi si cimenteranno ad inserire nella 
lunghissima REM iniziale. 

Il gioco prende spunto dai diversi arca- 
de di questo tipo esistenti nelle varie 
sale gioco e consiste nel guidare la 
propria vettura di “formula 1”, situata 
nel bordo inferiore dello schermo, lun- 
go una pista, sorpassando le auto che 
il computer fa apparire lungo la strada, 
senza urtarle ed evitando le uscite di 
strada. Si hanno a disposizione tre vet- 
ture e, dopo altrettanti scontri, il gioco 
finisce. 

Anche se a prima vista il tutto può 
sembrare molto facile, basta mettersi 
“al volante” per accorgersi, dopo alcu- 
ni istanti, che la velocità dell’auto au- 
menta sempre più fino ad arrivare a li- 
velli da “suicidi della strada”, questo 
grazie all’utilizzo del linguaggio mac- 
china. 

Contrariamente alla maggior parte dei 
giochi in commercio per lo ZX81, che 
utilizzano un solo carattere per i singo- 
li soggetti, in formula 1 le auto sono 
composte da 42 caratteri (matrice da 7 
righe x 6 colonne). Questo, se da un la- 
to comporta un notevole livello di gra- 
fica che fa dimenticare le limitazioni in 
tal senso del piccolo ZX81, da un altro 
fa sì che ben 306 dei codici macchina 
inseriti nella REM sono relativi ai ca- 
ratteri grafici delle auto (42 per quella 
del giocatore e 48 + 48 per quelle del 
computer), ai caratteri della collisione 
(126) ed a quelli raffiguranti lo “Start” 
iniziale (42). 

Il programma utilizza tutte le 24 linee 
dello schermo: le prime 22 per visua- 
lizzare la pista dove si svolge il gioco, 
la 23 a per il punteggio della gara 
(SCORE) e quello massimo raggiunto 
(RECORD); la 24 a per il colloquio fra 
lo ZX81 ed il giocatore prima del l’ini- 
zio della gara. 

Per avere a disposizione queste ultime 


due righe si è azzerato il valore della 
variabile contenente le righe a disposi- 
zione dello ZX81 con la riga iniziale: 
10 POKE 16418,0 

e nel programma si è evitato l’uso della 
istruzione INPUT sostituendola con la 
INKEY$ in quanto la prima avrebbe 
mandato in blocco il programma. 

Per quanto riguarda la costruzione del 
gioco procedere come segue: 

— caricare il listato della figura 1 che 
contiene le istruzioni per la realiz- 
zazione della REM iniziale lunga 
1073 caratteri contenente il lin- 
guaggio macchina (linee 1 — 96) 
ed il caricatore dello stesso (linee 
100 — 140). 

— dare il RCIN ed inserire i codici del 
linguaggio macchina riportati nel- 
la figura 2. Il programma si ferme- 
rà automaticamente dopo aver in- 
serito il 1069° codice. 

— sostituire tutte le linee del pro- 
gramma 1, ad eccezione della 
REM, con quelle riportate nel li- 


stato della figura 3; dopodiché il 
programma è pronto all’uso. 
Prima di effettuare una prova, consi- 
glio la registrazione di quanto fatto in 
modo da proteggersi da eventuali can- 
cellature o blocchi del programma in 
caso di errore di digitazione dei codici, 
la cui unica soluzione sarebbe lo spe- 
gnimento dello ZX81 con conseguente 
perdita di tutto il lavoro fatto. Nel caso 
si verificasse questa eventualità, o un 
funzionamento errato del programma, 
per la ricerca degli errori riporto un 
breve programma, “DUMP” che per- 
mette di visualizzare il contenuto delle 
locazioni di memoria: 

9900 FOR I = 16514 TO 17580 
9910 PRINT l;“ = ”; PEEK I 
9920 NEXT I 

Dopo aver dato il RCIN appariranno 
sullo schermo i contenuti delle prime 
22 locazioni di memoria ed il program- 
ma si fermerà con il codice errore 
5/9910 (non c’è più posto sullo scher- 
mo). Dopo aver controllato i codici, 
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per proseguire il controllo basta pre- 
mere i tasti CONT e N/L per far riparti- 
re il programma con le successive 22 
locazioni di memoria. 

La correzione degli errori può essere 
eseguita in modo diretto con POKE 
m,n dove m è la locazione di memoria 
da correggere ed n il codice macchina 
da inserire. 

Per chi fosse interessato al linguaggio 
macchina e desiderasse studiare il pro- 
gramma, verrà riportato nella seconda 
parte dell’articolo il relativo Assembler 
suddiviso in blocchi per renderne più 
chiara la lettura. Fra questi blocchi me- 
rita una particolare attenzione quello re- 
lativo allo SCROLL INVERSO (ossia dal- 
l’alto verso il basso) che si trova fra le 
locazioni 17003 e 17030 e che può sen- 
z’altro essere utilizzato anche in diver- 
si altri programmi di giochi. Siccome 
nel programma questo SCROLL è sta- 
toi adottato appositamente per il gioco 
(solo le 18 colonne centrali vengono 
mosse), per il movimento di tutto lo 
schermo vengono riportati nelle figure 
6 e 7 il programma e l’assembler rela- 
tivo. La REM iniziale della figura è com- 
posta da 41 caratteri. Dopo aver lancia- 


to il programma, apparirà il LIST dello 
stesso che scrollerà verso il basso. 

Possibili modifiche al gioco 

Se il gioco vi sembra troppo veloce o 
le auto a disposizione troppo poche, è 
possibile modificare questi valori in 
modo da adattarli alle proprie esigenze 
personali. 

Per quanto riguarda la velocità delle 
auto, il ciclo relativo all’accelerazione 
è contenuto fra le locazioni 16984 e 
17002. La locazione 16638 contiene il 
valore (iniziale 127) che caricato nel 
registro C determina quante volte quel 
ciclo deve essere eseguito. Ad ogni gi- 
ro di programma tale valore viene de- 
crementato di 2 (locazioni 16993 e 
16994 — DEC A — ) sino a raggiunge- 
re un valore minimo di 3 che corri- 
sponde alla velocità massima dell’auto 
(originariamente tale valore scendeva 
fino a 1, ma la velocità era tale da di- 
sturbare notevolmente i riflessi visivi). 
Per rallentare la velocità massima 
dell’auto occorre variare il valore mini- 
mo del ciclo contenuto nella locazione 
16990 con l’istruzione POKE 16990,n 


dove n dovrà essere un numero dispari 
compreso fra 3 (velocità attuale massi- 
ma) e 127 (velocità iniziale del gioco). 
Per quanto riguarda invece il numero 
della auto a disposizione, tale valore è 
contenuto nella locazione 16637 ed è 
generato in fase di partenza fra i byte 
16698 e 16702 (LD HL, 16637 — (HL), 
3). Il valore del byte 16637 viene inol- 
tre controllato fra le locazioni 16781 e 
16788 e, se l’auto del giocatore è la 
prima, viene stampato lo START sulla 
pista. Pertanto, per aumentare le auto 
a disposizione dovranno essere variate 
2 locazioni, la 16702 (generazione del 
n.ro auto) e la 16786 (controllo se è la 
prima auto), entrambe con l’istruzione 
diretta POKE 16702, n e POKE 
16786,n dove n sarà il nuovo numero 
delle auto (teoricamente è possibile in- 
serire fino a 255 auto). 

Un'ultima avvertenza: nel caso il pro- 
gramma venga registrato dopo averlo 
fatto girare, portare a 0 i byte 16635 e 
16636 (POKE m,0) che contengono il 
valore del record raggiunto in quanto 
il programma non prevede l’azzera- 
mento automatico degli stessi in fase 
% di partenza. 


Formula 1 

versione per ZX81 16K 
caricatore linguaggio macchina 



456^§iS a èìil?S2S?SèP" S67890i23 

2 REM 1234.5678901234567890123 

456 I 8 |IA 2 ?^tlI?lèÌ^34567890123 

456 IW 





34567890123 
34567890123 

456789012345678901234 

6 REM 12345678901234567890123 
456789012345678901234 

7 REM 12345678901234567890123 

456789012345673901234 

8 REM 12345678901234567890123 
456789012345678901234 

9 REM 12345678901234567890123 
456789012345678901234 

10 REM 12345678901234567890123 


456789012345678901234 

11 REM 12345678901234567890123 
456789012345678901234 

12 REM 12345678901234567890123 
456789012345678901234 

13 REM 12345678901234567890123 
456789012346678901234 

14 REM 12345678901234567890123 
456789012345678901234 

15 REM 12345678901234567890123 
456789012345678901234 

16 REM 12345678901234567890123 
456789012345678901234 

17 REM 12345678901234567890123 
456789012345678901234 

18 REM 12345678901234567890123 
456789012345678901234 

19 REM 12345678901234567890123 
456789012345673901234 

90 POR 1*16514 TO 17578 

92 IF PEEK 1*118 TMEN POKE 1,0 

93 NEXT I 

94 POKE 16511 , 0045 
96 POKE 16512,0004 

100 FOR 1*16514 TO 17580 
110 INPUT fi 

120 IF PEEK 16418*2 THEN SCROLL 

130 PRINT I; " = " ; fi 
140 POKE I,A 
150 NEXT I 
160 STOP 

1000 REM QUESTO PROGRfiMMfl CONSEN 
TE DI CREfiRE UNA REM INIZIALE DI 
1069 CARATTERI. 

1010 REM DARE IL RUN IN FAST E 
DOPO CIRCA MEZZO MINUTO LA REM 
capai rOPDTD 

1020 REM INSERIRE QUINDI I 1069 
CODICI DEL LINGUAGGIO MACCHINA E 
IL PROGRAMMA SI FERMERÀ* CON 
9/160. 

1030 REM CANCELLARE LE LINEE DA 
10© A 1030 ED INSERIRE IL RESTO 
DEL PROGRAMMA BASIC. 
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Formula 1 
versione ZX81 16K 
codici da inserire nella REM 
di linea 1 


i.6514 

- 

249 

t.6563 3 

0 

Ló 6 o 2 

a 

42 

16515 

;; 

1 

L65S4 a 

cr 

16653 

a 

40 

165 16 

- 

135 

1.6585 = 

133 

16654 

s 

52 

io517 

= 

4 

16586 = 

5 

16655 

a 

55 

16518 


1 la t* 

16587 = 

3 

16656 

a 

41 

io519 

— 

128 

L6588 = 

X 

16657 

a 

0 

16620 


135 

L6589 = 

0 

16658 

a 

28 

1652 1 

— 

4 

1.6590 = 

1 

16659 

= 

28 

16522 


133 

16591 = 

0 

i.6660 

= 

28 

L6523 

16624 

3 

*7 

126 

L6592 3 
16593 = 

1 

1 

16661 

1 6 6 6 2 

3 

23 

28 

16525 

5 j 

128 

L6594 = 

2 

16663 

= 

42 

j. 6 6 2 6 

= 

132 

16595 3 

0 

16664 

a 

12 

1652 7 


5 

16596 = 

1 

16665 

= 

64 

1652 8 

— 

0 

L6597 = 

0 

1666-6 

= 

1 

Lo529 

- 

135 

16598 = 

1 

16667 

a 

216 

16630 

— 

128 

LÓ599 a 

133 

1.0666 

a 

2 

L 6 5 3 I 

— 

1 26 

16600 s 

42 

16669 

a 

9 

1 6 5 3 2 


4 

L6601 « 

12 

1 © 6 7 0 

a 

17 

LO 53 3 

= 

0 

16502 = 

64 

L667 1 

= 

0 

i6634 

— 

0 

16603 = 

237 

i6672 

a 

65 

16536 


133 

LÓ604 = 

75 

16673 

a 

235 

1,6556 


144 

16605 = 

130 

166 74 

a 

1 

L653 ? 

— 

145 

16606 = 

64 

L6S75 

a 

11 

16536 

= 

5 

L6607 = 

9 

L 6 6 7 6 

a 

0 

16539 

— 

0 

L 6 6 0 8 = 

17 

». 6 6 7 ? 

a 

237 

16540 

— 

128 

16609 - 

132 

16678 

a 

176 

1.6 64 1 


129 

16610 = 

64 

16679 

a 

235 

16542 



16611 = 

6 

16680 

a 

43 

LO 543 

— 

132 

166 12 = 

*7 

16681 

a 

34 

L ò 6 4 4 

= 

130 

16613 s 

197 

1 6 ó 8 2 

a 

247 

«.6545 

a 

128 

16614 = 

235 

16683 

a 

64 

16546 


136 

16615 = 

1 

16684 

a 

1 

1.6547 


132 

16616 = 

6 

16685 

a 

8 

i 6546 

a 

148 

16617 = 

0 

16686 

a 

0 

16549 

~ 

148 

L 6 6 1 3 = 

237 

'.668 ? 

a 

9 

L6550 

a 

7 

1.6619 = 

176 

16686 

a 

14 

L6551 

— 

128 

1 6 6 2 0 3 

1 

Lòdo 9 

a 

12 

LÓ552 

— 

0 

16621 3 

27 

15590 

a 

235 

16553 


2 

l6622 = 

0 

16691 

a 

237 

L 6 5 5 4 


*7 

16623 3 

235 

16692 

a 

17© 

1.6555 


132 

16624 s 

9 

16693 

a 

27 

16556 

= 

•i 

X 

16625 = 

193 

16694 

a 

237 

1.655 7 

— 

0 

16626 = 

16 

L 6 6 9 5 

a 

63 

16556 

2; 

5 

16627 a 

241 

16696 

a 

245 

1.6559 

a 


16628 = 

201 

1 6 6 9 7 

a 

64 

16560 

a 

i 

16629 a 

90 

16698 

a 

33 

1656 1 

a 

2 

16630 3 

74 

16699 

a 

253 

LÒ562 

a 

7 

1663 1 = 

71 

ló 700 

a 

64 

16563 

a 

0 

16632 = 

74 

16701 

a 

54 

1.6564 

a 

*7 

16533 a 

0 

16702 

a 

o 

O 

16565 

a 

è 

1 6634 3 

0 

L6703 

a 

42 

16566 

a 

133 

16635 « 

47 

L6704 

a 

12 

16567 

a 

3 

16636 = 

2 

16705 

a 

64 

L656S 

a 

5 

1663? = 

3 

16706 

a 

1 

16569 

- 

2 

16638 a 

127 

16 707 

a 

7 

1.6570 

a 

7 

16639 a 

13 

16708 

a 

0 

16571 

a 

133 

16640 = 

56 

16709 

a 

9 

165 72 

a 

5 

L6641 = 

40 

16710 

a 

17 

16573 

a 

3 

16642 a 

52 

16711 

a 

15 

16574 

= 

tr 

10643 a 

55 

16712 

a 

0 

16575 

a 

0 

LÓ644 a 

42 

16 713 

a 

14 

16576 


5 

16645 = 

0 

16714 

a 

22 

16577 

a 

0 

16646 = 

28 

Lo? 15 

a 

6 

16578 

a 

•7 

16647 = 

28 

16716 

a 

18 

16579 

a 

5 

16646 a 

23 

16717 

a 

35 

16580 

a 

133 

16649 = 

28 

16718 

a 

54 

1653 1 

— 

132 

16650 a 

28 

16719 

a 

0 

16582 

a 

1 

16651 a 

55 

16720 

- 

16 


16721 

s 

25 1 

16808 

a 

1 

16895 

a 

0 

16 ? 2‘2 

a 

25 

16809 

= 

20 

1 6696 

a 

0 

l 6 7 2 3 

a 

13 

16810 

a 

0 

16897 

a 

0 

ló 724 

a 

32 

16811 

3 

9 

16898 

a 

0 

i. 6 7 2 5 

a 

245 

16812 

3 

17 

16899 

a 

0 

LÓ ? 26 

a 

8 3 

1 6 8 1 --3 

- 

174 

16900 

a 

0 

i.072 7 

a 

254 

16814 

3 

64 

16901 

a 

3 

ló 728 

a 

64 

168 15 

3 

6 

16902 

a 

3 

16 729 

a 

54 

16816 

3 

3 

16903 

a 

0 

16 730 

16731 

16732 

16733 

16734 
16 735 
16736 
1673? 
16736 
ló 739 
16740 

li il (i If il II II II II (| ff 

127 

35 

54 

1 J 

42 

12 

64 

17 

26 

0 

6 

16817 
1Ó8 18 

16819 

16820 
1682 1 
16822 
16823 
16324 

16825 

16826 

16827 

16828 
16829 

1 II II li II |i II II II il II II 

197 

235 

1 

14 

0 

237 

176 

1 

19 

0 

235 

9 

193 

16904 

16905 

16906 

16907 

16908 

16909 

16910 

16911 

16912 

16913 

16914 

li li li li II II il 11 II II » 

0 

8 

132 

174 

174 

~7 

3 

3 

129 

128 

128 

1674 1 

a 

2 

= 

16915 

3 

130 

i6?42 

3 

197 

16830 

Zt 

16 

16916 

- 

8 

0 

133 

16743 

16/44 

a 

14 

22 

1683 1 

16832 

a 

241 

6 

16917 

16918 

a 

16 745 

= 

6 

1 6 8 3 3 

= 

14 

16919 

a 

144 

16746 

16747 

16748 

* 

*7 

35 

54 

16834 

16835 

16836 

= 

54 

3 

35 

16920 

16921 

16922 


145 

5 

0 

16749 

a 

8 

16337 

3 

16 

16923 

ss 

0 

16750 

16751 

16752 

3 

16 

251 

25 
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Formula 1 

versione per ZX81 16K 
programma principale 



|E£R:ND 60 SUB UbRND**) IRNCVT'JhL 
FGR ■ GOSUBCf . FOR *«hT i LET 
ThN ???? "lasSCORE 00O0ORECOR 
D OOOOOEBRND" ** INKEY $ FOR ■" 
GOSUB B_F0R F6 RUN RND B 1 ws : £ F 
OR GOSUB H. GOSUB ? PRINT RND5 C 
LERR RNDG"E£RND B P **) ? : -. B >70 « C 

LS ; $4 PRINT 5 RETURN RND0ffl70SE£ 
RND ) _j_ ■" b UhL : -,T70iii CLS ,$4 PRI 
I B GOSUB PIAT ( REM E£RNDiPI 
-'Gl, ( CLS 5 CLERR RND£RND B 
W£ 7 G" •: CLS 7 OT = ** ) 0R N D« B 
- ' GOSUB 0" < FOR **RT 


NT 




*01 


< LET , B :Q-7.; 
LN **RNDTAN 



NPI? E RUN RNDb b 
UORNDMRP I55P IO 5NPIG=7G 


5 RETURN RND?? 

OPY i RETURN $4 
URL ) 5 FOR 
GOSUB ?RT v 
?LEN b S.J??LN 
54#*F < < < < < /| 

ND ; ) 5 JTQ H _ 

RND GOSUB ?LRND.|TRB 
" ?LN **RND UOPI RETURN 


RETURN “C™X X Tjr w 
RhND E£RND B H W + 
FOR ■ > GOSUB 9) N 
GOT 0 B E *J / B G LN H B 
0P? ELR N D ? ? ? RETURN 
RETURN 84 >76fcRNDE£R 
CLS 5 COPY RND? /5E£ 
7777É TRB 


C < 


^E£ 

6P 


a 

:.|5P 


RNDws GOSUB ?PPI FOR , B GOSUB 
P ISNP I?7RP I?76RRND? RETURN HS| 
EEK INKEY $ /■5*P I6PP IERP I776RP ISO 
PI? RETURN (SS. 0*/ B Q<FGÌ//ERPI?76 
RPI7CHRJ -S B / IF LEN . SNPI77G E 
RUN RND0F, PLOT U?E RRND RND76 R 


RND RND??P I 


I— |l U«J| II* 



I 


■ ■ m\ \ 

& **URL ìR" b bb URL EtRND GO 

oUB 'LRND^LN oT 0 P RND ; C» B COPY ( 
RETURN *4 RRND RT ( CuNT RT ( TO 
E£RND GOSUB ?fcRND**LN STOP RNDU 
CLERR RNDXM CLERR RND -RETURN C? 
: COPY COPY ( RETURN $4 RRND L 
N 2 INKEY $? ?P IE CLS RND GOSUB ? P 
HND RND GOSUB 7KP/2URL E£RNO B RE 
7 ( CLS LN B?) ) INKEY* FOR 
■r GOSUB 0LN @?RT i TO E RRND 
RNl>d ULS RNDE RUN RND GOSUB ? PR 
INT RND" | GOSUB @5 RRND RNDG 70 
LN @?94 IF LN U INKEY $TRN : < ( RE 
TURN *4 CLS TRN 


10 POKE 16418,0 

20 PRINT TRB 12 ; ;T R 

B 12; "FORMULA 1";TRB 12; "mm 


SO PRINT , ,"MRI R DISPOSIZIONE 
TRE AUTO PER PARTECIPARE AL GRR 
N PREMIO." 

40 PRINT "DECI SORPASSARE LE R 
UTO CHE IN- CONTRERR I LUNGO LR P 
ISTR SENZA URTARLE E SENZA USCI 
RE DI STRR - DA." 

SO PRINT "IL GIOCO TERMINA QUA 
NDO AURA I DISTRUTTO LE TUE RUT 
0 . " 


60 PRINT "COMANDI" 

70 PRINT "5) SPOSTI L* AUTO A S 
IN ISTR A " 

80 PRINT "Si SPOSTI L B AUTO R D 
ESTRA" 

90 PRINT . ."BUON D T U E R T, I ME NT C» " 

110 IF INKEY $ = "" THEN GOTO 110 
120 LET L=USR 16663 
130 PRINT RT 23,0, "13 


140 IF INKEY * = “ " THEN GOTO 140 
150 PRINT RT 23,0," 


160 LET L=USR 16955 
170 GOTO 130 
190 SRUE "FORMULA 0 
200 RUN 


segue 


Nel prossimo 
numero di 
SUPERSINC il 
listato Assembler 
di Formula 1 
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di C. Wakelin e T. Parklett 

trad. e adatt. 

di Paolo Maffei 


Un uomo da salvare in cima ad 
un'alta montagna... 


U n gioco dai comandi estremamen- 
te Semplici, in cui il vostro compito 
consiste nel recupero di un omino ri- 
masto isolato in cima ad una monta- 
gna. Col tasto W potrete spostarvi ver- 
so l’alto, mentre con S la vostra quota 
diminuisce. Perché il salvataggio rie- 
sca dovete passare appena poco più in 
alto dellomino; dopo di che passeete 
in un altro schermo dove, tenendo pre- 
muto il tasto B, atterrerete mettendo 
in salvo il vostro passeggero. 
Guadagnerete punti anche passando, 
quando possibile, sopra i serbatoi di 
carburante che galleggiano in aria. 
Quanto agli ostacoli, vedete di evitare 
le nuvole, imprevedibilmente consi- 
stenti... 

La fine del gioco è piuttosto atipica... 
non c’è. Potete difatti continuare a gio- 
care fino a quando avete voglia, ma at- 
tenti! Al più piccolo errore perderete 
tutti i punti faticosamente conquistati. 


Soccorso aereo 

versione per ZX Spectrum 16K/48K 


1 GO SUB 9000 

2 PAPER 5: CLS : PLOT INK 3; 
0,40: DRAW INK 3;255,0 

3 LET hs=0 

4 LET sc=0 

6 LET vi=2 

7 LET mo= 0 

8 LET uo=0 

10 PLOT 20,40: DRAW 30,20: 
DRAW 40,30: DRAW 5,10: 
DRAW 12,0: DRAW 5,-10: 
DRAW 24,-15: DRAW 25,-30: 
DRAW 3,-5 

100 PRINT AT 1 7,0;"{32SG8}"' " 


{ 32SG8 } " ' " { 32SG8 } " ' " 

{32 SG8 } " 1 2 3 4 "{32 SG8 } " 

150 PRINT AT 3,6; INK 7;" AB" ; 

AT 4,6; INK 7; "CD" 

160 PRINT AT 8,17; INK 7; "AB" 
AT 9,17; INK 7; "CD" 

170 PRINT AT 6,19; INK 7; "AB" 
AT 7,19; INK 7; "CD" 

180 PRINT AT 2,28; INK 7; "AB" 
AT 3,28; INK 7; "CD" 

190 PRINT AT 1,2; INK 7; "AB"; 

AT 2,2; INK 7; "CD" 

200 PRINT AT 12,4; INK 7; "AB" 
AT 13,4; INK 7; "CD" 

600 FOR f=l TO 9 STEP 2: 

CIRCLE INK 6 ; 200 , 1 50 , f : 
NEXT f 

680 PRINT AT 8, 1 2;"I" 
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685 PRINT AT 6,13;"J";AT 2,16;" 
J" 

690 PRINT AT 4,3; " J" ; AT 10,17;" 
J" 

800 LET x = 2 8 : LET y=l 4 
810 PRINT AT y ,x; " EF " ; AT y- 1 , 
x ; " " 

81 5 PRINT AT y+1 ,x; " " 

816 PRINT AT 0,0; "PUNTI " ; se 
820 LET x=x- 1 : BEEP .01,-5 

822 IF INKEY$ = "w" THEN LET y=y 
-1 

823 IF y< 1 THEN LET mo=l 

824 IF INKEY$ = " s" THEN LET y=y 
+1: IF y>l 5 THEN LET mo=l 

825 IF x< 1 THEN GO TO 3000 

830 IF y=3 AND x=6 OR y=4 AND x 
=6 THEN LET mo=l 
840 IF y=6 AND x=19 OR y=7 

AND X=1 9 THEN LET mo=l 
850 IF y=8 AND x=l 7 OR y=9 

AND x=l 7 THEN LET mo=l 
860 IF y=2 AND x=28 OR y=3 

AND x=28 THEN LET mo=l 

870 IF y=l AND x=2 OR y=2 AND x 
=2 THEN LET mo=l 
880 IF y=l 2 AND x=4 OR y=l 3 
AND x=4 THEN LET tno=l 
890 IF y=7 AND x=l 2 THEN LET s 
c=sc+10: LET uo= 1 
910 IF y=2 AND x=l 6 OR y=6 

AND x=l 3 OR y=4 AND x=3 
OR y=l 0 AND x=l 7 THEN 
LET sc=sc+30 

1000 IF mo=l THEN PRINT AT y,x; 

" GH ": LET vi=vi-l 
1010 IF _ vi=0 THEN GO TO 2000 
1 500 GO TO 81 0 

2000 BEEP 1,3: BEEP .7,4: BEEP . 
2,5: BEEP .3,4: BEEP .6,4: 
BEEP .5,3: BEEP 1 , 3 
2480 FOR f=l TO 100: NEXT f 
2490 GO TO 2 

3000 CLS : PLOT 0,40: DRAW 
INK 4 ; 2 55 , 0 
3005 LET x=29 

3010 PRINT AT 1 6 , 0 ; " { 32SG8 } " ' " 

{ 32SG8 } " ' "{32SG8}" V' 

{ 32SG8 } " ' " { 32SG8 } " ' " 

{ 32SG8 } " 

3020 IF uo=0 THEN PRINT AT 0,0; 
"SALVATAGGIO NON RIUSCITO, R 
IPROVA": PAUSE 100: CLS : 

GO TO 7 



3030 IF INKEY$="b" THEN LET y=y 
+ 1 

3035 PRINT AT y,x;" EF " ; AT y- 1 , 
x ; " " 

3040 IF x< 2 THEN LET nio=l 
304 5 LET x=x- 1 : BEEP .01,0: 

BEEP .01 ,-10 

3050 IF y>l 4 THEN GO TO 4000 
3060 IF TtlO=l THEN PRINT AT y,x; 

" GH " : GO TO 2000 
3500 GO TO 3030 
4000 LET sc=sc+100: PRINT 

FLASH 1 ;AT 1 2, 9; "BRAVO" : 
FOR f=l TO 200: NEXT f: 

CLS : GO TO 6 

9000 FOR c=l TO 10: FOR n=0 TO 7 
: READ d: POKE USR (CHR$ (1 
43+c) ) +n ,d : NEXT n: NEXT e 
9010 DATA 0,0,0,7,15,31,63,63 
9020 DATA 0,0,0,128,192,248,252, 
252 

9030 DATA 63,127,127,63,31,0,0,0 

9040 qATA 252,254,254,254,252,0, 

0',0 

9050 DATA 63,85,255,255,255,255, 
1 27,0 

9060 DATA 135,255,255,255,255,25 

4.252.0 

9070 DATA 2,61,203,212,35,44,20, 
" 3 

* 9080 DATA 250,22,34,162,92,144,4 
8,1 92 

9090 DATA 90,90,126,60,60,60,36, 
36 

9100 DATA 0,0,102,255,255,255,10 

2.0 

9110 RETURN 
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Il brivido dell’azzardo, senza il 
rischio della bancarotta! 


di Alberto Chiericati 


I l seguente programma consente 
di giocare a poker tra un 
tore ed il computer. 


Le carte vengono scelte da un 
mazzo di 24, partenti dal 9 per 
arrivare fino all’asso. 

Durante la prima parte del gioco, 
lo Spectrum distribuisce le carte 
a sè ed al giocatore, ed a seconda 
della combinazione di cui dispone 
decide e cambia quelle inutili. Succes- 
sivamente tocca al giocatore, dopo che 
sono state visualizzate le carte, decide- 
re quali scartare (il massino è di 4). 

Dopo la seconda e definitiva visualizza- 
zione del gioco, l’operatore è chiama- 
to a fare la sua puntata, che può anda- 
re da 100 dollari a 3000 dollari. 

A questo punto il Sinclair agisce nei se- 
guenti modi: 

VEDE quando dispone di almeno una 
coppia e la puntata non è molto alta; al- 
trimenti vede ugualmente se però ha al- 
meno un tris. 


PASSA quando la puntata del giocato- 
re è troppo alta e non dispone come mi- 
nimo di un tris. 


RILANCIA DI 1000$: 1) Nel caso non 
abbia nessuna combinazione valida 
(quindi cerca di bluffare). 

2) Se ha più di un tris. 

Dopo il successivo rilancio di 1000 dol- 
lari da parte del computer, l’operatore 
deve decidere se vedere (digitando VE- 
DO), oppure se passare (digitando PAS- 
SO). L’ordine con il quale lo Spectrum 
assegna le combinazioni valide è il se- 
guente: coppia, doppia coppia, tris, sca- 
la, full, colore, poker, scala reale. 


Linee 

Commento 

15-25 

Generazione caratteri grafici 

45-90 

Distribuzione carte 

100-190 

Verifica combinazioni carte dello Spectrum 

310-370 

Verifica della scala colore 

390-440 

Verifica scala 

445-540 

Nessuna combinazione valida (tiene carta più alta e scarta 
le altre) 

560-590 

Verifica coppa e tris 

610-660 

Verifica doppia coppia 

670-760 

Cambio carte giocatore 

770-788 

Puntata del giocatore 

790-856 

Verifica configurazioni carte Spectrum e giocatore 

860-900 

Verifica scala 

905-930 

Verifica scala colore 

940 

Verifica scala reale 

950-1050 

Assegnazione punteggi 

1055-1090 

Decisione dello Spectrum se vedere o passare 

1100-1146 

Determinazione vincitore 

2001-3040 

Routine per assegnazione e cambio carte 

4000-5840 

Generazione grafica gioco 
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Poker 

versione per ZX Spectrum 48K 


8 INK 7: CLS : INPUT "Vuoi la 

spiegazione ?(s/n) 

LINE g$ : IF g$="n" THEN 
GO TO 1 5 

9 BORDER 1: PAPER 1: INK 6: 

CLS 

10 POKE 23658,0: PRINT AT 0,0; 
"Il gioco e' molto semplice 

si tratta dello straight 
poker o poker all'italia 
na." ' "Inizialmente distribu 
isco cinquecarte a me, e cin 
que a te." '"Delle mie cinqu 
e mi preoccupo discartare q 
uelle inutili "Successi va 
mente sarai tu a doverfare 

10 stesso per te. Tieni ben 
presente che la carta piu' 
a sinistra e' la numero 
uno ed andando verso des 
tra il numero della carta 
aumenta ."' "I 1 capitale iniz 
iale e' di, sia per me che 
te, 7000 $."'"Per le puntat 
e il minimo e' di 100 $ ed 

il massimo di 3000 $ manon 
cercare di bluffare perche 
' con me e' tutto inutile. 
"'"In bocca al lupo e vinca 
il migl iore : cioè ' io ! 

11 

11 LET a$=" 0247797402442020247 
797402442205599977402024779 
740244220": LET b$="2244624 
4 62 444 4< 2244 62 4462444 4< 8848 
44444<22446244624444<" 

12 FOR j=l TO LEN a$ : LET n= 
CODE a$ ( j ) -48 : LET z=CODE b 
$(j)-48 

13 IF INKEY$<>" " THEN 

GO TO 1 5 

14 BEEP z/20,n: NEXT j: 

GO TO 11 

15 FOR a=0 TO 39 

20 READ b: POKE USR "a"+a,b: 

NEXT a 

21 DATA 24,60,126,255,255,126, 
24,60 

22 DATA 56,56,16,214,254,214,1 
6,56 

23 DATA 24,60,126,255,255,126, 
60,24 


24 DATA 102,255,255,255,255,12 
6,60,24 

25 DATA 38,105,169,41,41,41,41 
,118 

26 LET tit=7000 : LET tot=7000 

27 POKE 23658,8: POKE 23609,10 
0 

28 INPUT "Come ti chiami ?" ;z$ 

30 BORDER 4: PAPER 4: INK 0: 
CLS 

35 FOR z=4 TO 21: PRINT AT z , 0 

. « 

" : NEXT z 
37 PRINT AT 1,9;" 

": PRINT AT 2,9;" 

ii 

40 PRINT AT 10,11; FLASH 1; 

PAPER 1; INK 6; BRIGHT 1;" 
ATTENDI !" 

45 REM * *DI STRI BUZ IONE CARTE 

* * 

50 LET j=0 : DIM b$ (20,2): 

LET k = 0 : : DIM t ( 6) : LET d$ 

_ ii ii 

60 DIM w ( 8) : DIM c$(15,2): 

DIM f (30) : LET g=0 : 
RANDOMIZE 

70 FOR a=l TO 1 9 STEP 2 
80 GO SUB 2000:. IF h = l THEN 
GO TO 80 
90 NEXT a 

100 REM * * VERIFICA CARTE SPEC 
TRUM** 

110 LET pos=0: LET pun=0: 

LET p=0 : LET n=0 : LET u=0 : 
LET z=0 

120 FOR a=l TO 7 STEP 2: FOR d= 
a+2 TO 9 STEP 2 

130 IF b$ (a ) =b$ (d ) THEN LET n= 
n+1 : LET p=p+l : LET c$ (p) =b 
$ (a) : LET u = INT (a/2 + 1) 

140 NEXT d: NEXT a 
150 IF n=0 THEN GO TO 310 
160 IF n= 1 OR n=3 THEN GO TO 5 
60 

170 IF n=2 THEN GO TO 610 

1 90 GO TO 660 

300 REM ** SCALA COLORE** 

310 FOR a=2 TO 8 STEP 2: 

FOR d=a+2 TO 10 STEP 2 
320 IF b$ (a, 1 ) =b$ (d , 1 ) THEN 

LET u=u+l : LET d$=b$ (a , 1 ) 
330 NEXT d: NEXT a 
335 IF u=l 0 THEN GO TO 660 
3 40 IF u< 6 THEN GO TO 3 90 
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350 FOR a=l TO 9 STEP 2: IF b$ ( 
a+1 ) =d$ THEN GO TO 370 
360 GO SUB 2000: IF h=l THEN 
GO TO 360 

370 NEXT a: GO TO 660 
380 REM * *SCALA* * 

385 FOR a=l TO 9 STEP 2: 

LET j = INT (a/2 + 1): 

GO SUB 3000: NEXT a 
390 LET p=0 : FOR a=l TO 5: 

FOR d = 1 TO 5: IF a=d 
THEN GO TO 410 
400 IF INT f (a ) = INT (f(d)-l) 

THEN LET z=z+l : LET p=p+2 
: LET w ( p- 1 ) = INT f(a): 

LET w (p) = INT f (d) 

410 NEXT d: NEXT a 
420 LET y=l 

430 IF z=4 THEN GO TO 660 
440 IF z< 3 THEN GO TO 490 
443 REM * *NESSUNA COMBINAZION 
E VALIDA** 

445 LET q=p : LET p=0 

450 FOR a=l TO 5: LET ra=0: 

FOR d=l TO q: IF m=l 
THEN GO TO 460 
455 IF INT f (a ) =w (d ) THEN 

LET m=l : LET p=p+l : LET t( 
P) =a 

460 NEXT d: NEXT a: LET y=9: 

LET j = 0 


470 FOR a=l TO 5: LET m=0: 

FOR d=a TO a: IF m=l 
THEN GO TO 480 
475 IF a<>t(d) AND m=0 AND j= 

0 THEN LET m=l : LET j=l : 
LET y=2*a- 1 

480 NEXT d: NEXT a: LET a=y 
485 GO SUB 2000: IF h=l THEN 
GO TO 485 
487 GO TO 660 

490 FOR a=2 TO 5: IF f(a)>f(y) 
THEN LET y=2*a-l 
500 NEXT a 

510 FOR a=l TO 9 STEP 2: IF b$ ( 
a ) =b$ (y ) THEN GO TO 530 
520 GO SUB 2000: IF h=l THEN 
GO TO 520 
530 NEXT a 
540 GO TO 660 
550 REM * *COPPIA E TRIS** 

560 FOR a=l TO 9 STEP 2: IF c$ ( 
1 ) =b$ (a ) THEN GO TO 580 
570 GO SUB 2000: IF h=l THEN 
GO TO 570 
580 NEXT a 

610 FOR n=l TO 9 STEP 2 
630 IF c$ ( 1 ) =b$ (a ) OR c$(2)=b$( 
a) THEN GO TO 650 
640 GO SUB 2000: IF h=l THEN 
GO TO 640 
650 NEXT a 

660 LET a=9 : GO SUB 4000 
670 REM * *CAMBIO CARTE** 

680 INPUT "Quante carte cambi ? 
", LINE h$ : IF h$="" OR h$= 
" " THEN GO TO 680 
685 LET v=VAL h$ : IF v<0 THEN 
GO TO 680 

687 IF v=0 THEN GO TO 780 
690 IF v>4 THEN PRINT AT 4,0; 

FLASH 1 ; "NON PUOI IL MASSI 
MO E ' 4 ! " : PAUSE 1 20: 

PRINT AT 4,0;" 



GO 

TO 6 80 



700 

FOR 

a = 1 TO v 



705 

INPUT "Quale 

?", LINE j$ 


IF 

j$="" OR 

j$ = " " 

THEN 


GO 

TO 705 



71 0 

LET 

w (a) =VAL 



71 5 

IF w (a ) < 1 OR 

w (a ) >5 

THEN 


GO 

TO 70 5 



71 7 

NEXT a 



720 

FOR 

X 

II 

o 

< 



730 

LET 

a= ( 2*w (x) +9) 
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740 GO SUB 2000: IF h = l THEN 
GO TO 740 
750 NEXT x 

760 LET a = 9 : GO SUB 4010 
770 REM ***** PUNTATA ***** 

780 INPUT "Quanti dollari punti 
? LINE k$ : IF k$="" 

OR k$=" " THEN GO TO 780 

783 LET pun=VAL k$: IF pun<100 

THEN PRINT AT 4,0; 

FLASH l;"NON PUOI IL MINIM 
O E' DI 100 $ !": PAUSE 120 
: PRINT AT 4,0;" 

» . 

• 

GO TO 780 

784 IF pun>3000 THEN PRINT 

AT 4,0; FLASH 1 ; "NON PUOI I 
L MASSIMO E' 3000 $ !": 
PAUSE 120: PRINT AT 4,0;" 

" : GO TO 780 


785 IF pun>tot THEN PRINT AT 4 
,0; FLASH 1 ; "NON HAI TANTO 
DENARO !" : PAUSE 120: 

PRINT AT 4,0;" 

fi • 

GO TO 780 

788 IF pun>ti t THEN PRINT AT 4 
,0; FLASH 1 ; "NON HO TANTO D 
ENARO !" : PAUSE 120: 

PRINT AT 4,0;" 

ii . 

GO TO 780 

789 REM * * * VERI F ICA COMB.CAPTE 

* * 


832 NEXT d: NEXT a 

833 IF c$ ( 1 ) =c$ ( 2) OR n<>4 

THEN GO TO 851 

835 FOR d=2 TO 3: IF c$(l)=c$(d 
) THEN GO TO 845 
840 LET c$ ( 4) =c$ ( 1 ) : LET c$(l)= 
c $ (d) : LET c $ (d) =c$ (4) 

845 NEXT d 

850 IF n=4 THEN LET n=5 

851 IF n>=l THEN GO TO 975 
853 IF n>0 THEN GO TO 975 

855 FOR a=l TO 19 STEP 2: IF a> 
1 0 THEN LET k=5 

856 LET j=INT (a/2+1 +k) 

857 GO SUB 3000: NEXT a 

858 REM ***VERIFICA SCALA*** 

860 FOR a=b TO h: FOR d=b TO h: 

IF a=d THEN GO TO 880 
870 IF INT f (a) =INT (f(d)-l) 
THEN LET Z=Z+1 
880 NEXT d: NEXT a 

890 FOR e=m TO h: IF f (e) >f (y) 
THEN LET y=e 
900 NEXT e 

905 REM * *VERIF ICA SCALA COLO 
RE** 

910 FOR a=m TO o STEP 2: FOR d = 
a+2 TO s STEP 2 
920 IF b$ (a, 1 ) =b$ (d,l ) THEN 

LET u=u+l : LET d$=b$ (a , 1 ) 
930 NEXT d: NEXT a 
940 IF u=l 0 AND z=4 THEN LET n 
=8+ (CODE d$/l 000) : GO TO 10 
50 

945 IF u=l 0 THEN LET n = 7: 


790 LET y=l : LET b=l : LET m=2: 

LET i=l : LET h=5: LET c=7: 

LET 0 = 8 : LET g=9 : LET s=10 
: GO SUB 7 95 : LET b = ll : 

LET y=l 1 : LET c = 17: LET g = 
1 9: LET h = l 5: LET o=l 8 : 

LET s=20 : LET m=12: LET i= 
2: GO SUB 795: GO TO 1052 
795 LET q=0 : LET 1=0: LET n=0: 

LET p=0 : LET z=0: LET U=0 
800 FOR a=b TO c STEP 2: FOR d= 
a+2 TO g STEP 2 

810 IF b$ (a) =b$ (d) THEN LET n= 
n+1 : LET p=p+l : LET q=p: 

LET c$ (q) =b$ (a) 

820 FOR r = l TO q- 1 : IF c$(q)=c$ 
(r) THEN LET p=p-l: IF p<0 

THEN LET p=0 
830 NEXT r 


GO TO 1 050 

950 IF z=4 AND INT f(y)=ll 

THEN LET n=4.2: GO TO 105 

0 


960 

965 

970 

973 

975 

978 


IF z=4 AND 
THEN LET 

0 

IF z=4 AND 
THEN LET 

0 

IF Z=4 AND 
THEN LET 


INT f (y) =1 2 
n=4. 4: GO TO 105 

INT f (y ) =1 3 
n=4 .5: GO TO 105 

INT f (y) =1 4 
n=4. 6 : GO TO 105 


0 

IF n>=l THEN LET l=f (y) : 

GO TO 1030 

LET a=l : GO SUB 980: LET x= 
1: IF n=2 THEN LET a=2: 

GO SUB 980: LET l=l+x 
GO TO 1040 
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980 

985 

990 

1 000 

1 01 0 

1 01 5 

1 020 
1 030 
1 040 
1 050 
1 052 

1 055 


IF c$ (a , 1 ) ="E" THEN 
10: GO TO 1030 
IF c$ (a , 1 ) ="J" THEN 
11: GO TO 1030 
IF c$ (a, 1 ) ="Q" THEN 
12: GO TO 1030 
IF c$ (a, 1 ) ="K" THEN 
13: GO TO 1030 


LET 

1= 

LET 

1 = 

LET 

1= 

LET 

1 = 


IF c$(a,1)="A" THEN LET 1= 
14: GO TO 1 030 
IF C$ (a) =" " THEN GO TO 1 

030 

LET 1=VAL c$ (a ) 

LET 1=1/100: RETURN 
LET n=n+l 

LET t ( i ) =n : RETURN 
IF pun>l 500 AND t ( 2) <3 
THEN LET g=2 

LET m=0 : LET v=0: IF INT t( 


1 ) =0 AND ti t>=pun+l 000 
AND tot>=pun+l 000 THEN 
PRINT AT 4,0; "RILANCIO DI 
1000 ! ": 

LET g = l : GO TO 1 072 


1058 IF g=2 THEN GO TO 1090 
1 060 IF pun>l 500 AND t ( 1 ) < 3 
AND t ( 2) >3 THEN PRINT 
AT 4,0; "PASSO ! 

" : PAUSE 150: 
LET m=l : GO TO 1130 

1070 IF t ( 1 ) >4 AND ti t>=pun+l 000 

AND tot>=pun+l 000 THEN 
PRINT AT 4,0; "RILANCIO DI 
1000 ! ": 

GO TO 1072 

1 071 GO TO 1090 

1 072 LET v = l 000 : INPUT "COSA FAI 
?", LINE d$ : IF d$="PASSO" 
THEN LET m=l : GO TO 1120 
1075 IF d$="VEDO" AND tot<pun+v 
THEN PRINT AT 5,0; 

FLASH 1 ; "NON HAI TANTO DEN 
ARO !": PAUSE 150: PRINT 
AT 5,0;" 

" : GO TO 1120 
1080 IF d$="VEDO" THEN GO TO 11 
00 

1 085 GO TO 1 072 


1 090 

1 095 
1 1 00 

1110 
1 1 20 


1 1 25 
1 1 30 


1140 

1 1 43 

1 1 44 
1 145 


1 1 46 


1 1 60 


1 1 65 
1 1 70 
2000 

2001 


PRINT AT 4,0; "VEDO 


i 

n . 


PAUSE 1 50 

REM ** ASSEGNAZIONE 
ORE** 

IF t ( 1 ) =t ( 2) THEN 
AT 4,0; "LA MANO E' 

ii . .i SEI 

O AVVERSARIO. 

GO TO 1140 
IF t ( 1 ) < t ( 2) THEN 
30 


VINCIT 

PRINT 
PARI ! 

UN VALID 


GO TO 1 1 


PRINT AT 4,0; "HO VINTO IO.S 
ONO TROPPO FORTE. ": LET t 
ot= tot-pun- v: LET tit=tit+p 
un+v: IF v=0 AND m=l THEN 
LET tot= INT ( tot+pun-pun* 1 
0/100): LET tit=INT (tit-pu 
n+pun* 1 0/1 00) 

GO TO 1 1 40 

PRINT AT 4,0; "HAI VINTO TU 
! ": 

PRINT "COMPLIMENTI. 

": LET tot = tot 
+pun+v: LET tit=ti t-pun-v: 

IF v=0 AND m=l THEN LET t 
ot= INT ( tot-pun+pun* 1 0/1 00) 

: LET t i t= INT ( tit+pun-pun* 

1 0/1 00 ) 

IF g=2 THEN PRINT AT 18,0; 
"HAI BLUFFATO !": GO TO 114 
4 


IF g=l THEN PRINT AT 18,0; 
"HO BLUFFATO !" 

LET a=-l : GO SUB 4020 

IF ti t< 1 00 THEN CLS : 

PRINT AT 10,0; FLASH 1 ; "NO 
N HO PIU' DENARO PER GIOCAR 
E !": LET w(l)=6: GO TO 116 
0 

IF tOt< 1 00 THEN CLS : 

PRINT AT 10,0; FLASH 1 ; "NO 
N HAI PIU' DENARO PER GIOCA 
RE!": LET w ( 1 ) =6 : GO TO 116 
0 

INPUT "Vuoi continuare ?(S/ 
N) "; LINE p$ : IF p$="N" 
THEN STOP 

IF w ( 1 ) =6 THEN GO TO 26 
GO TO 35 

REM * **GENERAZ IONE CARTE* 

* * 

LET h=0 : LET t=2: LET g=g+l 
: LET b = INT (RND* 6) +9 : 

LET c=RND* . 004 + . 1 44 : LET b 
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=b+ ( INT (c*l 000) ) /I 000 : 

IF INT b=l 0 THEN LET b$ (a 
) = "E" : GO TO 2040 
2005 IF INT b=l 1 THEN LET b$(a) 
=" J" : GO TO 2040 


201 0 

2020 

2030 

2035 

2040 

2050 

2060 

2070 

2080 

2090 

3000 

3005 

301 0 

3020 

3030 

3040 


IF INT b=l 2 THEN LET b$(a) 
="Q" : GO TO 2040 
IF INT b=l 3 THEN LET b$(a) 
="K" : GO TO 2040 
IF INT b=l 4 THEN LET b$(a) 
="A" : GO TO 2040 
LET b$ (a) =STR$ b 
IF cC.146 THEN LET t=0 
LET f(g)=b: LET s=g 
FOR e=l TO s- 1 : IF f (e) =b 
THEN LET g=g-l: LET h=l 
NEXT e 

LET b$ (a+1 , 1 ) =CHR$ INT (c*l 
000): LET b$ (a + 1 , 2) =STR$ t 
RETURN 


IF b$ (a) = "E " 
) =1 0 : RETURN 

THEN 

LET 

f ( j 

IF b$ (a ) = "J " 
) =1 1 : RETURN 

THEN 

LET 

f ( j 

IF b$ (a) ="Q " 
) =1 2 : RETURN 

THEN 

LET 

f (j 

IF b$ (a) ="K " 
) =1 3 : RETURN 

THEN 

LET 

f (j 

IF b$ (a ) ="A " 
) =1 4 : RETURN 
LET f ( j ) =VAL 

THEN 

b$ (a) : 

LET 

f (j 


RETURN 


3990 REM * * * * * p ARTE GRAFICA*** 

* ★ 

4000 FOR z=4 TO 21: PRINT AT z,0 

• « 

": NEXT z: PRINT 
AT 1,9; INK 0 ; "LE TUE CARTE 
!": GO TO 4040 

4010 PRINT AT 1,9; INK 0; "QUESTE 

SONO LE": PRINT AT 2 , 1 0 ; "N 
UOVE CARTE!": FOR z=l TO v: 
IF w (z) =5 THEN GO TO 4030 

4011 NEXT z: GO TO 4040 

4020 PRINT AT 1,9; INK 0;" QUEST 
E ERANO ": PRINT AT 2,10; 
INK 0 ; "LE MIE CARTE!": 

GO TO 4030 

4030 PRINT AT 9,19; PAPER 7; 
BRIGHT 1;" 

PRINT AT 10,19; PAPER 7; 
BRIGHT 1;" 

PRINT AT 11,19; PAPER 7; 
BRIGHT 1;" 


4040 

4041 


4042 


4043 


4044 

4045 


4046 

4049 

4050 


4060 

4070 

4080 


4085 

4090 

41 00 

41 1 0 

41 20 

41 30 

41 40 
41 60 


PRINT AT 12,19; PAPER 7; 
BRIGHT 1;" ": 

PRINT AT 13,19; PAPER 7; 
BRIGHT 1;" ": 

GO TO 4044 

PRINT AT 0,0; INK 6;" 

{ 32SG8 } " 

PRINT AT 1,0; INK 6;"{SG8}" 
: PRINT AT 1,8; INK 6; " 

{ SG8 } " : PRINT AT 1 ,23; 

INK 6 ; " { SG8 } " : PRINT AT 1, 
31 ; INK 6 ; " { SG8 } " 

PRINT AT 2,0; INK 6;" 

{ 9SG8 } " : PRINT AT 2,23; 

INK 6 ; " { 9SG8 } " 

PRINT AT 0,1; PAPER 2; 

INK 6; OVER 1 ; z$ : PRINT 
AT 0,23; PAPER 2; INK 6; 

OVER 1 ; "SPECTRUM" 

PRINT AT 1,2;" ": 

PRINT AT 1,25;" " 

PRINT AT 1,1; INK 7; tot;" $ 
": PRINT AT 1,24; INK 7;tit 
;" IF z=22 THEN LET z= 

0: GO TO 4049 
GO TO 4085 
FOR y=6 TO 1 6 
PRINT AT y , 6 ; PAPER 7; 
BRIGHT 1 ; " 


NEXT y 

PLOT 215,127: DRAW -168,0: 
DRAW 0,-88: DRAW 168,0 


FOR x = 4 7 TO 143 STEP 24: 
PLOT x , 1 27 : DRAW 0,-88: 
NEXT x: PLOT 215,127: 

DRAW 0,-88 
LET q=a 

FOR c=7 TO 15 STEP 8: LET a 


=q 

FOR b=7 TO 1 9 STEP 3 : LET a 
=a+2 


PRINT AT c,b; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a , 1 ) 

PRINT AT 8 ,b; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a + 1 , 1 ) 

PRINT AT 1 4 ,b; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) 


NEXT b 

PRINT AT 8,25; PAPER 7; 
BRIGHT 1; INK VAL b$(a+l,2 


) ; b$ (a+1 , 1 ) 
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4170 PRINT AT c,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2' 
) ; b$ (a , 1 ) 

4180 PRINT AT 14,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 


41 90 

) ; b$ (a+1 , 1 ) 
NEXT C 


5020 

IF b$ (a , 1 ) = " 9 " 
GO TO 5300 

THEN 

5030 

IF b$ (a , 1 ) ="E" 
GO TO 5400 

THEN 

5040 

IF b$ (a , 1 ) ="J" 
GO TO 5500 

THEN 

5050 

IF b$(a,l)="Q" 
GO TO 5600 

THEN 

5060 

IF b$ (a , 1 ) = " K" 
GO TO 5700 

THEN 

5070 

IF b$ (a , 1 ) ="A" 
GO TO 5800 

THEN 


5300 PRINT AT 10,19; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) 

5310 PRINT AT 10,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a + 1 ,1) 

5320 PRINT AT 11,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) 

5330 PRINT AT 12,19; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;b$ (a+1 , 1 ) 

5340 PRINT AT 12,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) : RETURN 

5400 PRINT AT 10,19; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;b$(a+l ,1) 

5410 PRINT AT 10,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) 

5420 PRINT AT 9,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 ,1) 

5430 PRINT AT 12,19; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;b$(a+l ,1) 

5440 PRINT AT 12,25; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a + 1 , 1 ) 

5450 PRINT AT 13,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; b$ (a+1 , 1 ) : RETURN 

5500 PRINT AT 9,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { 3SG3 } " 

5510 PRINT AT 10,22; PAPER 7; 


BRIGHT 1; INK VAL b$(a+l,2 
) ; " {G5} " 

5520 PRINT AT 11,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;"{G5}" 

5530 PRINT AT 11,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;"{G5}" 

5540 PRINT AT 12,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;"{SG1 }{SG2}": RETURN 

5600 PRINT AT 9,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { 3SG3 } " 

5610 PRINT AT 10,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { SG5 } { G 5 } " 

5620 PRINT AT 11,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { SG5 } { G 5 } " 

5630 PRINT AT 12,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { SGl } {SG3 } {SG8 } " 

5640 PRINT AT 13,24; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
);"{G2}" : RETURN 

5700 PRINT AT 9,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ;"{G5}" 

5710 PRINT AT 10,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { G 5 } {SG6 } " 

5720 PRINT AT 11,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l,2 
) ; " { G5 } { SG6 } " 

5730 PRINT AT 12,21; PAPER 7; 

BRIGHT 1; INK VAL b$ (a+1 , 

) ;"{G5}{G6}" 

5740 PRINT AT 13,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l, 

) ; " { G 5 } {G6 } " : RETURN 

5800 PRINT AT 9,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l, 

) ; " { 3SG3 } " 

5810 PRINT AT 10,21; PAPER 7; 

BRIGHT 1; INK VAL b$ (a+1 
) ; " { SG5 } { G 5 } " 

5820 PRINT AT 11,21; PAPER 7; 

BRIGHT 1; INK VAL b$(a+l 
) ; "{SGl } {SG3} {SG2}" 

5830 PRINT AT 12,21; PAPER 7; 

BRIGHT 1; INK VAL b$ (a+‘ 

) ; " { SG5 } { G 5 } " 

5840 PRINT AT 13,21; PAPER 7; 

BRIGHT 1; INK VAL b$ (a+ 

) ; " { SG5 } { G 5 } " : RETURN 
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di Carlo Panzalis 
parte prima 


Una piccola ma esauriente guida 
alPuso dei caratteri grafici dello 
Spectrum 


C ome è noto lo Spectrum, sia nella 
versione a 16 che a 48 Kbyte di 
RAM, consente all’utente di definire 21 
caratteri grafici a proprio piacimento, 
ciascuno dei quali associato ad una let- 
tera da A ad Ù. 

Tuttavia molto spesso l’utente stenta a 
prendere rapidamente confidenza, con 
questa peculiarità dello Spectrum, in 
modo da sfruttarla adeguatamente per 
arricchire i propri programmi. 

È proprio pensando a questo “lettore 
in difficoltà” che iniziamo questa car- 
rellata sulle caratteristiche del set di ca- 
ratteri, sia residenti sia definibili dall’u- 
tente, nonché sulla gestione dell’imma- 
gine video, nella speranza di riuscire a 
rispondere ai più tipici interrogativi re- 
lativi a questo tema, fra i quali: come 
definire i caratteri grafici; come utiliz- 
zarli in un programma; come superare 
il tetto di 21 caratteri e, ad esempio, de- 
finire un nuovo set completo di carat- 
teri alfanumerici da utilizzare al posto 
di quello residente, e così via. 
Innanzitutto è opportuno ricordare che 
lo schermo preenta 22 linee (orizzonta- 
li) e 32 colonne (verticali), e risulta 
quindi suddiviso in 22*32= 704 qua- 
dratini. Onguno di questo, che indi- 
cheremo genericamente con il nome 
carattere, è composto da 64 pixel (pun- 
ti), ognuno dei quali può essere acceso 
o spento (cioè avere stato 1 o 0), assu- 
mendo così rispettivamente il colore 
dell’inchiostro (INK) o il colore della 
carta (PAPER). Sono dunque le nume- 
rosissime combinazioni di carta ed in- 
chiostro a determinare l’aspetto dei di- 
versi caratteri. Quando sullo schermo 
non ci sono né scritte né altri simboli, 
ogni carattere è costituito da 64 pixel a 
stato 0, vale a dire tutti del colore della 
carta; se decidete di stampare la lette- 
ra A nel quadratino in alto a sinistra 
(coordinate 0,0) in quest’ultimo alcuni 



pixel si accenderanno assumendo il 
colore dell’inchiostro e consentendo la 
rappresentazione del simbolo prescel- 
to. Tutti i simboli imprimibili sul vi- 
deo, siano essi caratteri residenti, sim- 
boli grafici sulla prima fila di tasti o 
quelli definibili dall’utente, sono dun- 
que costituiti da 8 righe orizzontali di 
8 pixel ciascuna, e possono essere 
stampati solo in corrispondenza di uno 
dei 704 quadratini di cui sopra. 

A scopo esemplificativo costruiamo 
una griglia di 8*8 quadratini di lato, 
ognuno dei quali rappresenta natural- 
mente un pixel, e reppresentiamo 
l’aspetto del carattere Spectrum A 
maiuscolo. Come è agevole notare, la 
prima e l’ultima riga di 8 pixel sono co- 
stituite da pixel spenti (per realizzare la 
separazione dei caratteri verso l’alto e 
il basso) e quindi tutti a stato 0. Proce- 


dendo dall’alto verso il basso vediamo 
invece che nella seconda riga quattro 
pixel sono accesi ed assumeranno 
quindi il colore dell’inchiostro. Il nu- 
mero binario 001 1 1 100 (60 convertito 
in sistema decimale) potrà dunque rap- 
presentare esattamente questa situa- 
zione. In modo del tutto analogo pos- 
sono essere rappresentate attraverso 
codici numerici le altre righe di pixel. 
Gli 8 numeri che codificano il simbolo 
A sono contenuti negli 8 byte (gruppi 
di 8 bit, in questo caso rappresentanti 
lo stato dei pixel di un carattere) dalla 
locazione 15880 alla 15887: ogni volta 
che volete imprimere la lettera A lo 
Spectrum legge il contenuto di queste 
locazioni e lo trasferisce nelle locazio- 
ni che gestiscono l’immagine video 
(Display File), cui è devoluto il compi- 
to di decodificare i numeri in combina- 
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zioni di pixel accesi/spenti. Tutto il set 
dei caratteri residenti (dallo spazio al 
segno di copyright), è contenuto se- 
condo quanto ora descritto a partire 
dalla locazione 15616 alla 16383. Si 
tratta di 96 simboli, ognuna dei quali 
occupa in memoria (ROM) 8 byte. 
Compreso questo meccanismo, il let- 
tore non dovrebbe avere difficoltà a 
definire un qualsiasi simbolo grafico, 
individuando i codici numerici (in no- 
tazione binaria o decimale indifferen- 
temente) atti a rappresentarlo: si tratte- 
rà sempre di disegnare una qualsiasi fi- 
gura in una matrice di 8*8 punti, tro- 
vare gli 8 numeri ad essa relativi e col- 
locarli nelle idonee locazioni di memo- 
ria. A tale scopo nello Spectrum sono 
riservati 168 byte (21*8) nella RAM, 
piu precisamente gli utlimi 168 byte fi- 
sicamente presenti. Stante la differen- 
te capacità della memoria ad accesso 
casuale nelle due versioni di questa 
macchina, troveremo che nel 16K so- 
no a questo scopo riservati i bytes del- 
la locazione 32600 alla 32767, mentre 
nel 48K i butes in questione occupano 
gli indirizzi da 65368 a 65535. All’ac- 
censione questi bytes contengono i va- 
lori numeri delle prime 21 lettere 
dell’alfabeto (inglese): se entrare in 
modo grafico (CAPS SHIFT e 9) e pre- 
mete i tasti A — CI vedrete apparire sul- 
lo schermo le corrispondenti lettere 
maiuscole. Tuttavia il contenuto di 
queste locazioni può essre modificato 
dall’utente permettendo la rappresen- 
tazione di un qualsiasi simbolo grafi- 
co. Supponendo di avere già trovato 
gli 8 codici numerici relativi ad un sim- 
bolo grafico idoneo ai nostri scopi, po- 
tremmo attraverso l’istruzione POKE 
collocare tali valori nelle prime 8 loca- 
zione di questa area, associando il sim- 
bolo al tasto ‘A’ nel seguente modo: 
(Es. riferito al 16K) 

POKE 32600, numero 
POKE 32601, numero 
POKE 32602, numero 
ecc. fino a 

POKE 32607, numero 

Infatti POKE permette di ‘forzare’ un 
byte e di fargli assumere un qualsiasi 
valore compreso tra 0 e 255, indipen- 
dentemente dal valore che esso conte- 
neva. Entrando in modo grafico (pre- 
mendo CAPS SHIFT e 9 simultanea- 
mente) e, quindi premendo il tasto ‘A’, 
vedremo realizzato sullo schermo il 
simbolo da noi costruito. 

Operare in questo modo presenta tut- 
tavia alcuni inconvenienti. Innanzitut- 
to si tratta di un procedimento piutto- 
sot lungo: infatti dovremo calcolare le 
locazioni in cui collocare i valori in re- 
lazione ai differenti tasti cui lo voglia- 
mo associare ed inoltre dovremo scri- 
vere le 8 istruzioni necessarie (gli 8 
POKE), e questo per ogni carattere da 
noi desiderato. Per migliorare tale pro- 
cedura sarà sufficiente predisporre una 
linea di DATA, composta da 8 dati, per 


ogni simbolo grafico e realizzare quin- 
di un ciclo FOR... NEXT che legga tali 
dati e li collochi nelle locazioni deside- 
rate: 

FOR n = 0 TO 7 
READ dato 

POKE 32600 + n, dato 
NEXT n 

DATA 0,12,60,255,1,40,190,81 

(i dati sono del tutto casuali) 

In questo loop grazie alla variabile n ad 
ogni passaggio la locazione considera- 
ta si incrementa di 1, caricando il nu- 
mero ad essa relativo. 

Anche in questo caso si manifesta tut- 
tavia la necessità di calcolare le loca- 
zioni interessate al procedimento in re- 
lazione al particolare tasto cui esse so- 
no associate: così abbiamo infatti as- 
sociato un simbolo grafico al tasto ‘A’, 
mentre per associarlo al tasto ‘R’ do- 
vremmo calcolare gli indirizzi ad esso 
relativi. Inoltre così facendo i listati per 
il 16 e il 48K perderebbero la loro com- 
patibilità poiché nelle due macchine 
diverse sono le aree RAM riservate agli 
GDG (a proposito: tale sigla significa 
caratteri grafici definibili dall’utente — 
Gser-Defined Graphics). Per scavalcare 
tali problemi è necessario ricorrere al- 
la funzione CISR. Questa è una funzio- 
ne che, applicata ad una stringa com- 
posta da una lettera da A ad CI, ritorna 
l’indirizzo del primo byte degli otto cui 
la lettera è associata. Ad esempio se 
inserite come comando immediato: 

PRINT CJSR“a” 

otterrete 32600 nel 16K, oppure 
65368 nel 48K. 

Quindi l’istruzione 

POKE GSR “a”, numero 

è del tutto equivalente a 

POKE 32600, numero nel 16K, ed in- 
vece a 

POKE 65368, numero nel 48K 
facendo così salva la compatibilità 
dell’operazione nelle due versioni del- 
lo Spectrum. Sarà dunque sufficiente 
sostituire nel loop di cui sopra la linea 
del comando POKE con una del tipo: 

POKE GSR “a” + n, dato 

Inoltre per associare il simbolo in que- 
stione a una qualsiasi lettera (A-G) ba- 
sterà sostituire la stringa “a” con una 
contenente la lettera desiderata, elimi- 
nando così ogni noioso calcolo. Il pro- 
cedimento in questione è particolar- 
mente utile in caso dobbiate definire, 
come di norma avviene, diversi carat- 
teri grafici. In questo caso il loop che 
carica in memoria i codici numerici 
dovrà essere nidificato in un altro che 
tenga conto del numero di caratteri da 
definire. Gn esempio classico è: 


FOR f = 1 TO 3 
READ p$ 

FOR n = 0 TO 7 
READ dato 

POKE GSR p$ + n, dato 
NEXT n 
NEXT f 

DATA “a”, 11,25,255,0,0,0,133,14 
DATA “g”, 0,0, 100,98,76,45,254,98 
DATa “t”, 13,1 4,56, 1 99, 1 93, 1 ,0, 1 

11 loop esterno legge il primo dato 
stringa (“a”), mentre il loop interno 
legge uno ad uno i primi 8 dati numeri- 
ci e li carica nelle locazioni associate 
alla lettera A; poi il loop esterno legge 
la seconda stringa (“g”) ed il loop inter- 
no carica i byte associati alla lettera G; 
e così via. 

Il loop esterno può essere costruito in 
diverse forme alternative ma equiva- 
lenti in relazione alle diverse esigenze 
dell’utente. Ad esempio, se si devono 
definire 1 1 caratteri grafici e si intede 
associarli alle prime 1 1 lettere (A-K), si 
può far riferimento al codice decimale 
della lettera nel seguente modo: 

FORf = 144 TO 151 

POKE GSR CHR$ f + n, dato 
NEXT f 

evitando così di dover riportare all’ini- 
zio di ogni linea di DATA la lettera cui 
i dati stessi si riferiscono. 

Tale procedura non risulta invece effi- 
ciente nel caso si intendono associare i 
caratteri ad un insieme di lettere non 
legate da una relazione così lineare (ad 
esempio un gruppo di lettere quali a, 
b, j, r, t, u....). 

Gna volta definiti dei caratteri grafici, 
li potremo sfruttare nell’ambito di una 
programma utilizzando l’istruzione 
PRINT seguita da una stringa conte- 
nente le lettere associate ai simboli 
stessi. Se, per esempio, abbiamo defi- 
nito un omino in corrispondenza del 
tasto ‘S’ e lo vogliamo imprimere al 
centro dello schermo, basterà inserire 
nel listato una linea così: 

PRINT AT 11,15; “S” 

La stringa deve però essere necessaria- 
mente battuta in modo grafico, vale a 
dire che dopo aver aperto gli apici do- 
vremo premere il tasto CAPS SHIFT e 
il tasto 9: subito il cursore dalla stato 
‘L’ passerà allo stato grafico ‘G’. Pre- 
mendo il tasto ‘S’ identificheremo il 
carattere da rappresentare, quindi ri- 
premendo il tasto 9 potremo chiudere 
gli apici. Quando nel corso dell’esecu- 
zione del programma si giungerà alla 
linea della PRINT, vedremo apparire 
sullo schermo il nostro omino secondo 
le specifiche da noi caricate in memo- 
ria. Inoltre prmendo ENTER vedremo 
che la lettera è stata sostituita anche 
nel listato dal simbolo grafico ad essa 
assegnando. Questa particolarità ci 
consente di verificare in una data posi- 
zione dello schermo il carattere giusto. 
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Per immagazzinare dei caratteri da noi 
definiti aM’interno di un programma 
dovremo dunque realizzare i due loop 
atti a caricare i dati nelle locazioni di 
memoria ad essi destinate. E comun- 
que essenziale che. prima di essere 
stampati sullo schermo, i caratteri ven- 
gano caricati in memoria: la subrouti- 
ne di caricamento, costituita dai due 
loop, deve quindi essere attivata allini- 
zio del programma, eventualmente ri- 
chiamandola con una istruzione GO 
SGB. 

Segnaliamo comunque che, a causa 
dell’elevato numero di byte richiesti da 
ogni linea DATA, è in taluni casi op- 
portuno dividere il nostro progamma 
in due listati: il primo sarà destinato 
solo al caricamento dei caratteri grafi- 
ci; il secondo sarà invece il program- 
ma vero e proprio. Questa possibilità è 
realizzabile anche grazie al fatto che 
l’area destinata agli GDG è posta al di 
sopra di RAMTOP; con questo termine 
si indica la soglia massima di RAM di- 
sponibile per la programmazione BA- 
SIC. Tutto ciò che si trova al di sopra di 
tale soglia è protetto sia nel caso si ca- 
richi un nuovo programma (nel nostro 
caso il listato 2, cioè il nostro program- 
ma ‘vero’), sia nel caso si dia un co- 
mando NEW. Provate a definire un ca- 
rattere grafico, quindi battete NEW: 
entrando in modo grafico vedrete che 
il carattere è ancora in memoria, men- 
tre è sparito il loop con cui lo avevate 


definito. 

Quanto detto dovrebbe avervi suggeri- 
to una terza possibilità di caricamento 
degli GDG: una volta definiti nel solito 
modo è possibile salvarli su nastro con 
il comando immediato 

SAVE “nome" CODE GSR “a”, 168 

dove “nome” va sostituito con qualsia- 
si nome (meno di 1 0 lettere) voi voglia- 
te. 

Quando vorrete caricare il vostro pro- 
gramma dovrete caricare con LOAD 
CODE anche questi byte, ottenendo il 


risultato di avere caratteri grafici senza 
avere il listato appesantito alla subrou- 
tine di caricamento. 

Sperando di aver reso più agevole l’ac- 
cesso al tema in questione all’utente 
insoddisfatto delle spiegazioni del ma- 
nuale, necessariamente rapide e moti- 
vo della vastità degli argomenti tratta- 
ti, rinviamo ad una prossima puntata 
l’esame di particolari problemi con- 
nessi alla creazione di caratteri grafici 
attraverso tecniche alternative, capaci 
di superare alcuni vincoli propri del 
procedimento qui mostrato. 



BIN 

00000000 


0 

(decimale) 

BIN 

00111100 

_ 

60 

(decimale) 

BIN 

01000010 

_ 

66 

(decimale) 

BIN 

01000010 

_ 

66 

(decimale) 

BIN 

00111110 

_ 

126 

(decimale) 

BIN 

01000010 

_ 

66 

(decimale) 

BIN 

01000010 

_ 

66 

(decimale) 

BIN 

00000000 

= 

0 

(decimale) 


Gli otto valori della tabella sottostante 
sono i codici numerici in notazione bi- 
naria e decimale che consentono la rap- 
presentazione sul video del carattere A 
maiuscolo. Al momento della accensio- 
ne dello Spectrum detti valori sono con- 
tenuti in otto locazioni consecutive a 
partire dalla 15880, nonché in altre ot- 
to a partire dalla 32600 (65368 nel 
48K). 

I primi otto indirizzi fanno parte 


dell’area ROM in cui è immagazzinato 
il set di caratteri residenti, e quindi il 
loro contenuto non può essere modifi- 
cato. 

Gli altri otto bytes fanno invece parte 
della sezione RAM destinata a contene- 
re gli GDG: queste locazioni sono ac- 
cessibili all’utente e quindi il loro con- 
tenuto può essere modificato così da 
realizzare caratteri grafici personaliz- 
zati. 


Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell’informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall’animazione cinematografica 
e televisiva ai businnes graphics; dalla 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
aH’argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 


Mauro Salvemini 


COMPUTER 

GRAFICA 




GRUPPO 

EDITORIALE 

JACKSON 




Avete il coraggio di avventurarvi 
nella torre del male? 



Q uesto gioco si inserisce nel filone, 
tanto per fare un nome, di Atic 
Atac: una rischiosissima ricerca al l’in- 
terno di un castello - nel nostro caso 
una torre - per trovare qualche cosa (i 
tre pezzi della chiave che consente di 
aprire il portone e di uscire dal castel- 
lo, neM’esempio che abbiamo appena 
fatto - lo sapevate?): in questo caso, ci 
caliamo nei panni di Andros, eroe cac- 
ciato dalla corte di re Salimos e con- 
dannato a non fare mai più ritorno fino 
a che non avrà recuperato il tesoro del 
re, trafugato dal malvagio Negroman- 
te. L'unico suo aiuto è un incantesimo 
generosamente elargitogli dal mago di 



corte, che gli consentirà di scagliare 
palle di fuoco dall le punte delle dita. 
All’interno della Torre del Male sono 
sparsi i nove tesori da recuperare, più 
le chiavi che permettono il passaggio 
al livello successivo. Ovviamente non 
è tutto qui: le varie stanze della torre 
sono popolate dai servi del Negroman- 
te, che faranno del loro meglio per 
complicare le cose. 

I livelli da superare sono cinque, e non 
sono affatto facili, anche perché i teso- 
ri conquistati saranno al sicuro sola- 
mente una volta messi nel baule che 
appare nella stanza di partenza, al pri- 
mo piano, obbligando Andros a conti- 
nui andirivieni tra un piano e l’altro. 
Ogni volta infatti che il nostro eroe 
perderà una vita, tutti i tesori in quel 
momento in suo possesso verranno 
persi e sarenno nuovamente da recu- 
perare. Le vite a disposizione sono cin- 
que ma... non bastano proprio! Oltre 
agli infortuni derivati da incapacità o 
distrazione capita spessissimo di veni- 
re colpiti praticamente a tradimento 
nel passaggio tra una stanza e l’altra; 
oltretutto per passare da un livello 
all'altro occorre superare un insidiosis- 
simo corridoio di fuoco interrotto più 
volte da pozze di lava bollente, che oc- 
corre superare con balzi di discreta 
precisione, pena la morte per liquefa- 
zione rapida (uno dei piccoli ma grade- 



voli effetti speciali che il programma- 
tore ha inserito, pur nel contesto di 
una grafica piuttosto spartana). 

Il gioco è praticamente tutto qui, basa- 
to più sulla velocità e sulla precisione 
di chi gioca piuttosto che sulla spetta- 
colarità della grafica (comunque ade- 
guata) o sulla complessità del mecca- 
nismo di gioco. 

Non crediate però che Tower of Evil 
sia null’altro che un comune “spara e 
fuggi ': senza un pizzico di capacità 
strategiche i vostri pur meritevoli sfor- 
zi non verranno mai premiati in misura 
adeguata. Occorre infatti in primo luo- 
go saper ottimizzare la spola tra i vari 
livelli e il forziere contenuto nel primo, 
per evitare viaggi inutili e rischiosi; in 
secondo luogo, bisogna saper girare il 
meno possibile per ogni piano restan- 
do contemporaneamente in ogni stan- 
za per il minor tempo possibile, perché 
il numero di “cattivi” presenti nel livel- 
lo in cui siete dipende dal vostro tem- 
po di permanenza e dal numero di ulte- 
riori passaggi in una stanza già prece- 
dentemente visitata. Un suggerimento: 
non abbiate paura di sprecare colpi, vi- 
sto che il fuoco continuo protegge en- 
tro certi limiti la vostra avanzata e, 
molte volte, vi salva da situazioni alle 
quali i vostri riflessi non avrebbero po- 
tuto in nessun caso rispondere in tem- 
po utile. Cercate anche di essere veloci 
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- più tempo vi fermate e più rischi cor- 
rete; se proprio dovete fermarvi, mai 
farlo vicino a una porta! 

Gn accenno, infine, alla confezione, di- 
scretamente elegante e pratica, e alla 
documentazione, dettagliatissima ed 
esauriente. 

Non vi pentirete certo dell'acquisto di 
Tower of Evil: è un gioco che saprà im- 
pegnarvi al massimo delle vostre pos- 
sibilità, senza stancare od annoiarvi. 


Volcanic Planet 

riuscirete ad avere ragione dei 
perfidi Zerans? 



State per calarvi nei panni di un sabo- 
tatore, incaricato di addentrarvi nelle vi- 
scere del pianeta Zeras, abitato dai mal- 
vagi Zerans, per minarne il centro (che 
— non sembrano molto furbi, questi 
alieni — poggia direttamente sopra un 
immane vulcano) e provocare in questo 
modo l’inondazione di un oceano di la- 
va che spazzi via per sempre il pianeta 
stesso insieme ai suoi abitanti. 

Per compiere la missione, partite dalla 
grande metropoli sotterranea che sor- 
ge su Zeras e, forniti di tutto l’occorren- 
te — ossigeno, sistema di mantenimen- 
to, energia e armamento, quest’ultimo 


consistente in un micidiale blaster — vi 
introducete nella città. Gli Zerans non 
presteranno molta attenzione all’intru- 
so, almeno inizialmente. 

In alto a destra potete vedere una map- 
pa, forse un po’ piccola rispetto al ne- 
cessario, del livello in cui vi trovate. La 
vostra posizione è in essa sengata dal 
lampeggiare di un cursore color magen- 
ta; sotto la mappa si trovano invece gli 
indicatori dell’efficienza delle vostre ap- 
parecchiature, display (cioè la capaci- 
tà di evidenziare la vostra posizione sul- 
la mappa generale), bio-system, energia 
e schermo di protezione. Quando que- 
st’ultimo si troverà a zero, vi troverete 
pericolosamente esposti ai colpi degli 
Zerans, e basterà che uno qualsiasi de- 
gli altri indicatori venga ugualmente az- 
zerato per provocare la fine della mis- 
sione. Il resto dello schermo mostra la 
vostra avventura vista dall’alto, ingran- 
dendo la zona coperta dal cursore sul- 
la mappa. 

La prima cosa che dovete fare è cerca- 
re l’ascensore che vi possa portare la 
piano inferiore. Gli ascensori da cerca- 
re saranno uno per piano, in quanto essi 
fanno la spola continuamente tra un 
piano e un altro: saprete di essere nel- 
le vicinanze di uno di essi osservando 
il cursore sulla mappa diventare di co- 
lor ciano (guardate sulla tastiera dello 
Spectrum se non conoscere questo ter- 
mine, più precisamente il tasto “5”). Non 
c'é modo di sapere se l’ascensore che 
avete trovato sale o scende: l’unico si- 
stema è provare, verificando l’esito del 
vostro tentativo su un indicatore di pro- 
fondità visibile in alto a sinistra. Tenen- 
do anche presente che entrare nel pri- 
mo ascensore, quello da cui partite, con- 
sente un reintegramento immediato 
delle voste risorse. I livelli da cui la cit- 
tà è composta variano da 3 a 15, a se- 
conda del livello di difficoltà prescelto, 
e dovrete quindi trovare altrettanti 
ascensori. Nel frattempo avrete già avu- 
to il vostro da fare: difatti la pianta di 
ogni livello è estremamente arzigogo- 
lata, e trovare un ascensore non è faci- 
le; in più, gli Zerans diventeranno sem- 
pre più intraprendenti e bellicosi, coin- 
volgendovi in terrificanti conflitti a fuo- 
co e costringendovi a volte a cimentar- 
vi in fughe degne dell’Harrison Ford di 
“Biade Runner” o dei “Predatori dell’Ar- 
ca perduta’’. Tra l’altro, appena uno Ze- 
ran viene colpito gli altri aumentano 
vertiginosamente velocità e casualità 


del movimento per qualche istante, 
creandovi ulteriori difficoltà. Cosa man- 
ca?... Ah, si: nella città si trovano spar- 
si alcuni kit di riparazione, che in certi 
casi si dimostrano davvero utili. 
Arrivati finalmente sul fondo e localiz- 
zata la bocca del vulcano, non vi resta 
che depositare la bomba che avete por- 
tato con voi, e darvi alla fuga nel tenta- 
tivo di ritrovare l’uscita nel più breve 
tempo possibile. La bomba esploderà 
dopo 15 secondi, e la lava fusa comin- 
cerà ad invadere il sotterraneo, arro- 
stendo i malcapitati Zerans e, se non sa- 
rete stati abbastanza rapidi, anche voi. 
VOLCANIC PLANET è un gioco di azio- 
ne, che richiede però una buona dose 
di strategia, senza la quale siete desti- 
nati a vagare senza meta per i sotterra- 
nei fino alla morte per consumazione. 
È decisamente impegnativo da gioca- 
re con la tastiera, mentre con un joy- 
stick ci si trova sicuramente meglio: co- 
me tutti i prodotti Thorn Emi che ab- 
biamo visto finora, anche questo assi- 
cura la compatibilità con i joystick 
Kempston e Sinclair. Considerato an- 
che che il programma gira anche su 
Spectrum inespanso da 16K, si può par- 
lare di prodotto pervettamente propor- 
zionato alle aspettative, in grado di en- 
tusiasmare gli amanti del genere. 




Bt 



Jw 


sr 

wf 

«k 


Tower of Evil 
(cod. DTEMS02) 

L. 16.000 

Volcanic Planet 
(cod. DTEMS03) 

L. 16.000 

sono in vendita presso: 

TECHNOCLUB 
Via Rosellini, 12 
20124 Milano 

I programmi recensiti possono essere 
ordinati utilizzando il coupon a pag. 82 
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a cura di Lucio Bragagnolo 


Spectrum tool 

programmi di utilità, grafica e 

gioco di Roberto Rigo 

ed. Gruppo Editoriale Jackson 



G uardando la copertina del libro (per 
inciso, originale e simpatica) non 
è possibile non capirne il contenuto, an- 
che per chi è digiuno di inglese al pun- 
to di non comprendere il titolo. Si trat- 
ta di una raccolta di programmi costi- 
tuita per lo più da “strumenti” softwa- 
re, come dire da routine che arricchi- 
scono lo Spectrum di funzioni e possi- 
bilità normalmente disponibili su calco- 
latori più potenti e costosi, ma non im- 
plementate nella ROM del nostro “pic- 
colo” Sinclair. Vi è anche una sezione 
— di modeste dimensioni rispetto a 
quelle complessive del libro — dedica- 
ta ai giochi; ma è ben lungi dal risulta- 
re, superflua, e si dimostra utile sia per 
alleggerire il tono generalmente un po’ 
rigoroso dei desti sia per evidenziare la 
potenza ed efficacia di alcune delle rou- 
tine pubblicate nelle pagine preceden- 
ti. 


Qual’è, però, il punto che realmente in- 
teressa? Il fondo di routine se ne pub- 
blicano tante, e qualcuna in più o me- 
no non cambiano molto la situazione... 
in questo libro il “punto di forza” è da- 
to non solo dall’uso estesissimo del lin- 
guaggio macchina, ma soprattutto dal- 
l’estrema attenzione posta nel dotare 
ogni disassemblato di commenti final- 
mente comprensibili ed esaurienti per 
chiunque. Anche per gli inesperti, poi, 
c’è la possibilità di evitare di dover ad- 
dentrarsi nel codice macchina per (se 
proprio si tratti di pigrizia all’ennesima 
potenza) limitarsi a copiare semplice- 
mente i listati BASIC delle routine. In- 
fatti, ogni programma viene dapprima 
presentato in BASIC, completo del lin- 
guaggio macchina inserito sotto forma 
di linee DATA, per poi passare all’esa- 
me del l/m attraverso il disassemblato 
corredato, come abbiamo detto, di ric- 
chissime delucidazioni e spiegazioni. È 
stata scelta questa strada, dice l’autore 
nell’introduzione, allo scopo di riunire 
i pregi di queste due diverse modalità 
di programmazione pur compensando- 
ne i difetti (lento e di relativamente fa- 
cile comprensione il primo difficile da 
capire ma molto più efficiente e veloce 
il secondo). E questo è il filo condutto- 
re di tutto il libro attraverso le tre se- 
zioni di cui è composto. La prima di es- 
se è la più estesa e, se vogliamo, anche 
la più concreta, senza la quale non 
avrebbe avuto senso una pubblicazione. 
Intitolata “utilità”, comprende in senso 
stretto tutte le routine di cui abbiamo- 
fino ad ora accennato, nella quasi tota- 
lità frutto di un buonissimo stile di raf- 
finatezze sicuramente “risparmiose” in 
termini di memoria occupata e efficien- 
tissime in sede di controlli e sicure, ma 
anche piuttosto ermetiche per i non 
esperti (sono già arrivate in redazione 
alcune telefonate di aspiranti program- 
matori in cerca di chiarimenti). In ogni 
caso, il livello medio del software pub- 
blicato si mantiene comunque alto, spe- 
cialmente quanto a sinteticità ed effi- 
cienza. 


Per parlare dei programmi presenti in 
questo “Spectrum tool” c’è solo l’imba- 
razzo della scelta, a partire dai “soliti” 
e pubblicati in mille salse (presentati pe- 
rò in quest’ambito con arricchimenti e 
maggiori opzioni) fino ad arrivare a ti- 
toli che per molti costituiranno se non 
una sorpresa almeno una piacevole no- 
vità. Si parte col più classico dei cari- 
catori di linguaggio macchina, qui pre- 
sentato in tre forme diverse, in grado di 
accettare codici esadecimali nel primo 
e decimali nel secondo e nel terzo; in 
quest’ultimo è però presente una opzio- 
ne di conversione in esadecimale dei 
numeri, che è poi possibile far rappre- 
sentare sotto forma di linee DATA au- 
togenerate. 

Anche questa routine, come quasi tut- 
te quelle presenti, risulta utile non so- 
lo da un punto di vista di mera utilizza- 
zione; il libro costiuisce un’ottima oc- 
casione per aumentare la propria com- 
prensione del funzionamento dello 
Spectrum in generale e, più in partico- 
lare, delle possibilità d’uso delle varia- 
bili di sistema. 

Proseguendo troviamo un programma 
per ottenere il LIST parziale di un de- 
terminato gruppo di linee di listato, un 
DELETE per la cancellazione di interi 
blocchi di programma (certe volte ve- 
ramente indispensabile) e una routine 
di rinumerazione, contenente la sotto- 
routine “Find Token”, scritta in codice 
macchina e avente la funzione di rin- 
tracciare qualsiasi istruzione che abbia 
come argomento un numero di linea a 
4 cifre — GO TO, GOSCIB, RESTORE 
e così via — restituendone l’indirizzo in 
RAM al BASIC. Segue un’autentica de- 
lizia, reperibile a livello di home com- 
puter, crediamo, unicamente sul defun- 
to TI99 della Texas: vale a dire l’auto- 
number. Si prosegue con un paio di pro- 
grammi che faranno la gioia dei copia- 
tori folli: un lettore di header, un copia- 
tore di programmi per Spectrum 48K 
residente sopra RAMTOP (con versione 
residente sotto l’inizio dei programmi 
BASIC, per i possessori di Sinclair ine- 
spansi e per chi vuole riuscire a copia- 
re anche “The Hobbit”) e un paio di rou- 
tine che visualizzano sullo schermo l’in- 
tensità dei segnali ricevuti dalla prese 
EAR dello Spectrum. 

La sezione due è dedicata alla grafica 
e, oltre a contenere programmi di scroll 
pixel per pixel nelle quattro direzioni, 
fornisce frasi capovolte o... in diagona- 
le (!), un ingranditore di caratteri e un 
editor di caratteri grafici che è sicura- 
mente da annoverare tra i migliori pro- 
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grammi, sia del libro che in senso as- 
soluto. 

La terza sezione, dedicata ai giochi, ne 
comprende una decina, dallo standard 
tuttavia non eccezionale. Le uniche 
menzioni d'onore da dare sono per 
“Quasimodo”, arcade in cui bisogna 
soccorrere la bella principessa superan- 
do gli ostacoli che i minacciano sulla 
nostra strada (che è poi la merlatura di 
un castello) e “The Wall", come dire uno 
degli antenati degli arcade, qui ripropo- 
sto con dovizia di mezzi grafici. 
Avrete già capito che il nostro giudizio 
globale è sostanzialmente positivo; le 
uniche riserve che vogliamo fare sono 
sui testi, farraginosi e, ci sembra di ca- 
pire, non troppo curati, e sull’opportu- 
nità, data la grande quantità di linguag- 
gio macchina presente, di fornire qual- 
che forma di controllo sull’inserimen- 
to dei codici (tipo “checksum”), del tut- 
to assente nel libro. Comunque, “Spec- 
trum tool” rimane un ottimo libro, con- 
sigliabile a chi ha già qualche esperien- 
za di programmazione. 

Il libro del Microdrive 
Spectrum 

di lan Logan 
ed. JCE 


IL LIBRO 
DEL 

MICRODRIVE 

SPECTRUM 

CO" INTERFACCIA ZX 1. 




“In origine era lo Spectrum, un compu- 
ter tipicamente home, ed era adatto so- 
prattutto per giochini più o meno intel- 
ligenti...” Probabilmente potremmo co- 
minciare a raccontare così, in tono va- 
gamente biblico, l’evoluzione di quel 
calcolatore un po’ atipico che è in fon- 
do lo Spectrum. In effetti, la mancata 
— o meglio tardiva — introduzione in 
Italia di periferiche come l’interfaccia 1 
e i Microdrive, unita alla ancora attesa 
informatizzazione di massa (intesa co- 
me il saper usare il computer, e non co- 
me il semplice averne uno — e che dif- 
ferenza!), hanno portato a una sottova- 
lutazione delle possibilità di questa 
macchina, tanto che sono ancora mol- 
ti i padri di famiglia che pensano a un 


calcolatore economico negli stessi ter- 
mini di un giocattolo costoso, opinio- 
ne ormai non più accettata in paesi co- 
me gli USA, o la Gran Bretagna stessa. 
Chiaramente uno Spectrum, anche do- 
tato di Microdrive e relativa interfaccia, 
farà sempre una notevole fatica a gesti- 
re una azienda: ma il punto è che, gra- 
zie a queste nuove periferiche, gli si 
aprono strade ben diverse (forse per cer- 
ti aspetti anche più soddisfacenti) di 
quella giocosa, beninteso bellissima e 
su cui non abbiamo niente da ridire, an- 
zi! 

Ora che non è più arduo come qualche 
tempo fa procurarsi un Microdrive, che 
vengano edite anche in Italia pubblica- 
zioni suH’argomento è cosa del tutto na- 
turale; e finalmente veniamo a questo 
“Libro del Microdrive Spectrum”, pre- 
sentato sul retro della copertina come 
qualcosa che “chiunque voglia aumen- 
tare le possibilità dello Spectrum oltre 
quelle che già conosce, deve leggere”. 
(Jna presentazione così roboante e am- 
biziosa come questa viene avallata dal 
nome dell’autore, lan Logan, che ha 
partecipato in qualità di osservatore alla 
stesura, negli stabilimenti Sinclair, de- 
gli 8K di ROM contenuti nell’interfaccia 
1. Non è certo cosa da poco (nel libro 
si accenna anche a notizie... non pub- 
blicabili causa richiesta esplicita della 
Sinclair Research: quanti autori sono 
documentati fino a questo punto?); e di- 
fatti dal libro traspare una conoscenza 
profondissima dell’hardware — ma so- 
prattutto del software — presente in 
queste ultime realizzazioni. 

Anche il titolo non deve ingannare: non 
stiamo parlando di un semplice libro sui 
Microdrive, ma di una trattazione com- 
pleta di quello che viene a configurarsi 
grazie ai Microdrive stessi ma soprattut- 
to all’interfaccia 1, come un sistema 
molto più potente di quanto non fosse 
prima quello costituito dal solo Spec- 
trum, con le nuove possibilità di con- 
nessione in rete locale (pensare a scuo- 
le, biblioteche, club di amatori...) e di 
interfacciamento tramite la porta 
RS232, che rende possibile il dialogo 
con altri calcolatori, stampanti e peri- 
feriche di ogni tipo. 

A tutto questo sono dedicati i sei capi- 
toli in cui è diviso il libro, che peraltro 
presenta stranamente, dopo l’introdu- 
zione... l’indice analitico. 

Si parte da una descrizione generica (e 
da zero) di quello che viene chiamato 
“il sistema Spectrum esteso”, per poi 
trattarne i vari aspetti capitolo per ca- 
pitolo, più approfonditamente. Il primo 
elemento a essere analizzato è il BASIC 
esteso utilizzabile con l’interfaccia 1, di 
cui vengono fornite sintassi, spiegazio- 


ne ed applicazione di ogni comando, a 
tutti i livelli. Seguono poi i Microdrive, 
di cui viene detto se non tutto la gran- 
dissima parte, e di cui viene descritto 
anche il funzionamento vero e proprio 
(tecnica di registrazione, densità di in- 
formazione — 500 byte per pollice di 
nastro — , programmi per verificare lo 
stato dei singoli 180/190 settori in cui 
è diviso ogni nastro, e altro ancora); a 
proposito, sapevate che una POKE al- 
la locazione 23791 eseguita prima di 
dare il SAVE crea più copie dello stes- 
so file? 

Il capitolo 4 è dedicato alla rete locale, 
una opzione abbastanza misconosciu- 
ta ma che è in grado di offrire, se ben 
sfruttata, grandissime possibilità. Come 
al solito viene detto tutto, forse anche... 
troppo, visto che certi dettagli di fun- 
zionamento sono comprensibili solo da 
appassionati non solo di computer, ma 
anche di elettronica. Il linguaggio si 
mantiene comunque rigoroso e chiaro 
come all’inizio, e le maggiori difficoltà 
di comprensione sono controbilancia- 
te da un intelligente uso di schemi e ta- 
belle (peraltro presenti in gran numero 
per tutto il libro). Gna trattazione det- 
tagliata anche se sintetica viene succes- 
sivamente fatta per l'interfaccia RS232 
vera e propria, descritta sia come hard- 
ware che come software. Infine, il capi- 
tolo 6, dedicato all’uso del linguaggio 
macchina, che farà la gioia di tutti i pro- 
grammatori esperti, messi come sono 
in grado di lavorare sulle routine della 
nuova ROM. Di esse vengono dati i co- 
dici esadecimali di accesso, e in più 
vengono descritte, in una sezione a par- 
te, le modalità per ottenere dei nuovi 
comandi da aggiungere a quelli stan- 
dard del BASIC Sinclair. Vengono an- 
che forniti i disassemblati di alcuni sem- 
plici esempi: per esempio, un coman- 
do LINE capace di tracciare un quadra- 
to intorno allo schermo, o un’istruzio- 
ne CIRCLE n che disegna una circonfe- 
renza di diametro n, o un BORDER b,i,p 
che definisce in un colpo solo INK, PA- 
PER e BORDER. Ed è possibile, per un 
abile programmatore, definire coman- 
di ancora più sofisticati e potenti... 
Non i pensi comunque che questo sia 
un libro adatto solo per “maghi del soft- 
ware”: le messe di informazioni in esso 
contenuta, per ogni livello di conoscen- 
za, è talmente alta che anche il più 
sprovveduto degli utenti Sinclair potrà 
utilizzarlo con piena soddisfazione, sen- 
za il timore di avere speso inutilmente 
dei soldi. Si intende che è meglio se si 
possiedono l’interfaccia 1 e almeno un 
Microdrive... ma può darsi che dopo 
aver terminato la lettura vi sia venuta 
voglia di comprare entrambi! 


Spectrum Tool (cod. AJAK022) L. 13.500 
Il libro del Microdrive Spectrum (cod. AJCC004) L. 14.400 
sono in vendita presso: TECHNOCLUB 
via Rosellini, 12 - 20124 Milano 
I libri possono essere ordinati utilizzando il coupon 
pubblicato a pag. 82 
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P I rima di programmi e notizie, apria- 
mo questa puntata di ZX Club con 
due annunci: 

Il SINCLAIR COMPUTER CLUB ha aper- 
to le iscrizioni (la quota è di quindici- 
mila lire) per l’anno 1984/85. L’iscrizio- 
ne dà diritto a ricevere software, il bol- 
lettino del club ed a partecipare a tutte 
le iniziative da esso promosse. Scrive- 
te a: 

Andrea Focardi 
via G. Di Vittorio 56 
50015 GRASSINA FI 

A tutti gli “spectromani”: ho fondato un 
fantastico club (il SINCLAIR SOFT- 
CLUB) senza fini di lucro. Esso si pro- 
pone di scambiare, comprare, vendere 
a prezzi irrisori (L. 1000 - mille! - a pro- 
gramma) software per Spectrum. Scri- 
vete o telefonate a: 

Marco Maffezzoli 
via Cà Nova 17 
37016 GARDA VR 
Tel. 045/7255097 

Quanto al software, cominciamo con 
una sobrutine per ZX81 di Roberto Pa- 
reschi, membro del SINCLAIR CLUB 
BOLOGNA e residente in via Ronco 16 
a Paullo (MI). Si tratta di una sobrutine 
di gestione di input, ma attenti! Non si 
tratta di un programma completo (se 
provate a farlo girare così com’é, non 
otterrete alcun risultato utile), ma va ag- 
giunto, appunto come sobrutine, al vo- 
stro programma di inserimento dati/ge- 
stione biblioteca/agenda telefonica/fa- 
te voi. Lindirizzo del club, per chi vuole 
inscriversi o richiedere informazioni, è: 

Sinclair Club Bologna 

Associazione di Utenti di microcompu- 

ters 

via Molino Vecchio 10/F 
40026 IMOLA BO 



Ecco le “istruzioni per l’uso”: 
occorre avere definito precedentemente 
nel vostro programma le variabili C$ (il 
carattere che desiderate usare come 
cursore) e CAMPO, che indica il nume- 
ro massimo di caratteri che vengono ac- 
cettati come input. 

La sobrutine viene mandata in esecuzio- 
ne con GOSUB 91000. 

All’uscita della sobrutine abbiamo in a$ 
il nostro input, che definiremo come 
VAL A$ se l’input è numerico. Si può 
posizionare il cursore dove si vuole in- 
serendo una istruzione PRINT AT N,N; 
prima di mandare in esecuzione la so- 
brutine. 

Sullo schermo comparirà un cursore 
lampeggiante nella posizione da voi in- 
dicata 

Per introdurre il dato crivetelo normal- 
mente e poi premete NEWLINE. Per 
cancellare c’é il solito RUBOUT, men- 
tre per avere uno spazio bisogna preme- 
re la freccia a destra. 

Questa routine è molto utile in pro- 


grammi dove viene preparata una "ma- 
schera” in cui vengono introdotti i da- 
ti. Il cursore si posizionerà di volta in 
volta sul campo in cui verrà introdotto 
il dato, passando poi automaticamen- 
te al campo successivo (per effetto di un 
comando NEWLINE o del raggiungi- 
mento dei limiti del campo) 

Durante l’esecuzione, viene usata la va- 
riabile di sistema DF-CC, che viene de- 
crementata dopo ogni stampa del cur- 
sore o di uno spazio. Per questo sono 
state usate alcune semplici istruzioni in 
linguaggio macchina, che dovranno es- 
sere alloggiate nella linea 1 del pro- 
gramma utilizzato, sotto forma di un’i- 
struzione REM seguita da dieci caratte- 
ri. Le dieci locazioni corrispondenti so- 
no quelle che vanno dalla 16514 alla 
16523 (il codice macchina viene richia- 
mato dai vari RAND USR 16514 presen- 
ti nella sobrutine); in esse dovranno es- 
sere inseriti tramite POKE e i seguenti 
valori (in decimale) 237, 75, 14, 64, 1 1 , 
237, 67, 14, 64, 201. 


Subroutine di gestione input con scelta del cursore 
di Roberto Pareschi ■ Sinclair Club Bologna 
versione per ZX81 16K 


(listato 1) 


9015 

90S0 

9085 

9030 

9035 

904.0 

9045 

9050 

9055 

9050 

9065 

9070 

9075 

9080 


PRINT Ct; 

RRND USR 15514 
POR K«l TO 10 
LET Rt-INKEYI 
IF RIO"" THEN 
NEXT K 
PRINT " M ; 

RRND USR 16514 
POR K*1 TO 10 
LET RtalNKEYI 
IP Rt < > " " THEN 
NEXT K 


GOTO 9000 
PRINT " "J 
RRND USR 16614 
LET K« 10 


GOTO 9070 


•» 


GOTO 9070 
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9085 NEXT K 
9090 LET R *CODE RI 
9096 RETURN 
9100 LET Ria'" 

9105 GQSUB 9000 
9110 IF Ralle TMEN RETURN 
9115 IF R < > 119 THEN GOTO 9165 
9180 LET XaLEN (RI) 

9186 IF X>0 THEN GOTO 9135 
9130 GOTO 9150 


9136 RRND USR 16514. 

9150 IF X <8 THEN GOTO 9100 
9155 LET R|aR|( TO X-l) 

9160 GOTO 9105 

9165 IF Rai 15 THEN LET RlaCHRI 0 
9170 PRINT RI 
9175 LET R I «R I +R I 

9160 IF LEN RI > aCRMPQ THEN RETUR 

N 

9136 GOTO 9105 


Dal numero 5 (Marzo/Aprile 1984) del 
bollettino bimestrale del SINCLAIR 
NEW CLUB di Moncalieri pubblichiamo 
un programma proveniente nientepo- 
podimeno che dal... Brasile! Piuttosto 
ingegnoso, è cortissimo, ma funziona a 


meraviglia (o almeno il nostro test, effet- 
tuati sulle date della prima quindicina 
di agosto 1984 e sulle date di nascita 
dell'intero corpo redazionale, non ha ri- 
velato errori). 

Ecco l’indirizzo del club: 


Sinclair New Club 
c/o GianPaolo Gentili 
via Turati 10 
10024 MONCALIERI TO 
Tel. 011/6407195 


Calendario 

di Carlos M. G. Weinstein - Sinclair New Club Moncalieri 
versione per ZX Spectrum 16K/48K 

(listato 2) 


10 LET a$="l 440250361 46" 

20 PRINT "Dammi una data, nell 
a forma "’"~ggmmaa~ (gi 

ornomeseanno ) " 

30 INPUT d$ 

4 0 CLS 

50 LET d=VAL d$ ( TO 2) 

60 LET m=VAL d$(3 TO 4) 

70 LET a=VAL d$ ( 5 TO ) 

80 LET b= INT (a/4) 

90 LET x=a+b+VAL a$(m)+d 
100 LET s=x- ( INT (x/7)*7) 


105 LET s=s+(7*(s=0) )- (a-b*4=0 
AND (m=l OR m=2) ) 

110 PRINT AT *7 , 0 ; " 1 1 giorno " ; d 
$;" cade di " ; 

120 PRINT AT 11,9; "DLMMGVS " 

140 PRINT AT 1 2, 1 *s+8 ; " {G3}" 

150 PRINT AT 20,0; "Premi un tas 
to per un'altra data" 

1 60 PAUSE 0 
1 70 CLS 
180 GO TO 20 



in 


Se volete entrare in possesso di tut- 
te le ultime novità software per lo 
ZX Spectrum a prezzi irrisori (max 
L. 1000) scrivetemi, rispondo gra- 
tuitamente a tutti. 

Vito Bianco - via Palladio, 10 - 
20030 Lentate (MI) - Tel. 
0362/565102 



Regalo decine di programmi per 
Spectrum in cambio di una stam- 
pante (ZX Printer, Alphacom 32. 
Seikosha GP50S). Eventualmente 
disponibile a L. 2500 l’uno. 

Marco Sivori - Barchetta, 18/9 - 
16162 Bolzaneto (GE) - Tel. 
010/403118 


Compro software per ZX Spectrum 
qualsiasi listato o programma. In- 
viatemi le vostre liste, rispondo a 
tutti. Cambio inoltre stupendo gio- 
co elettronico della FI con almeno 
10 programmi compresa cassetta. 
Scrivete a: 

Marco Gorin - C.so Italia, 57 - 13100 
Vercelli 


Vendo programmi per Spectrum 
16K/48K, corredati di istruzioni. 
Scrivere allegando bollo per elen- 
co o telefonando ore pasti a: 
Maurizio Leone - via Gaio Melisso, 
16-00175 ROMA - Tel. 06/766271 

Cambio software per ZX Spectrum 
vasto assortimento, novità inglesi. 
Rispondo a tutti, inviare vostra lista, 

10 invierò la mia. 

Raffaele Maruca - via E. Toti, 27 - 
21047 Saronno (VA) - Tel. 
02/9606810 

Vendo cassette giochi a L. 4000 
(Spectrum 16K) e a L. 6000 (Spec- 
trum 48K). Oltre 100 titoli. Inviare 
francobollo per listino competo. 
Tra i titoli (16K): Jet Pac, Psst, 
Tranz Am, Pac Man. Per il 48K: Ant 
Attak, 4D ufo attack. ecc. 

Roberto Spina - C.so Italia, 304/F - 
74100 Taranto - Tel. 099/331231 

Cambio e vendo software per ZX 
Spectrum. Compro stampante ZX 
Printer. Telefonare dopo ottobre al- 
lo 0836/62714 

Francesco Mariano - via Liguria 27 
bis - 73013 Galatina (LE) - Tel. 
0836/62714 

11 GSIMCLAIRCOMPUTERCLUB ha 
aperto le iscrizioni (L. 15.000) per 
l'anno 1984/85. L’iscrizione dà di- 
ritto a ricevere il bollettino, softwa- 
re ed a partecipare a tutte le inizia- 
tive promosse dal Club. Scrivere a: 
Andrea Facardi - via G. Di Vittorio, 
56 - 50015 Grassina (FI) 

Cerco tastiera FD5 della FGLLER in 
ottimo stato a un prezzo modico o 
se qualcuno sa dove trovarlo anche 
nuova. Inoltre vendo programmi 
per Spectrum 16k e 48K oppure 
scambio con altri programmi. Ven- 
do anche dei programmi per Com- 
modore CBM64, e VIC 20, oppure 
scambio con programmi per Spec- 
trum. Vendo libro “alla scoperta 
dello ZX Spectrum” + libro dei Mi- 
crodrive, e Interfaccia 1 , + casset- 
ta Horizon, in Italiano a L. 30.000 
valore commerciale L. 80.000 
circa. 

Vendo anche Videogioco Leonardo 
GIG o HIMEX nuovo a L. 160.000, 
e 5 cassette intercambiabili. Vendo 
antifurto per auto a tasti era digita- 
le (senza sirena) adattabile a qual- 
siasi antifurto ha ben 700.000 com- 
binazioni a L. 40.000, valore reale 
è di L. 180.000. Telefonare ore 
serali: 

Valter Cacciolatto - via Doria, 21 - 
10042 Michelino (TO) - Tel. 
011/6273563 


Vendo per ZX Spectrum program- 
mi tra i migliori da L. 3000 a L. 
5000. Chiedete la lista o telefonate 
ore pasti per informazioni a: 
Marco Rossi - via Cerro Maggiore - 
20027 Rescaldina (MI) - Tel. 
0331/57669 

Vendo, ma sopprattutto cambio 
software per Spectrum. Logicamen- 
te preferirei che qusto avenisse nel- 
la zona di Bologna ma non è neces- 
sariamente opportuno. 

Pasquale Molitierno - via Silvagni, 
17 - 40137 Bologna - Tel 343327 

Vendo numerosi programmi a prez- 
zi ridicoli, troppo bassi per essere 
pubblicati per Spectrum disponibi- 
li oltre 300 titoli 16K/48K in l/m. 
Scambio inoltre con software ed 
hardware di ogni tipo per detto 
computer. 

Rosario Di Modica - via Castelfidar- 
do, 37 - 97019 Vittoria (Ragusa) 
Tel. 0932/983512 

Programmi originali per Spectrum 
16/48K su cassette Sony C 60. 
Cambio alla pari o vendo a L. 2000 
cadauno. Sconti per quantitativi. In- 
viate vs. lista o richiedere la mia af- 
francando risposta. 

Cruciani Alberto - Piazza Vittorio, 
138 - 00185 Roma - Tel. 06/737240 

Vendo Sinclair ZX Spectrum 48K 
+ amplificatore B.F + 21 cassette 
software 16/48K, il tutto a L. 
500.000. Rivolgersi a: 

Luca Fontana - via Garibaldi, 205/a 
Cornaredo (MI) - Tel. 02/9362410 

Vendo, cambio numerosi program- 
mi per ZX Spectrum 16K, giochi e 
utility, tra cui Jet pac, Tranz Am. 
Planetoids, Invaders, Poc Man, ecc. 
Inviare francobollo per lista. Prezzi 
stracciati. 

Paolo Galante - viale Madonna di 
Rosa, 7c - 33078 S. Vito al Tagl. 
(ZN) 

Cambio software per Spectrum. Ri- 
cerco corrsipondenti nelle varie cit- 
tà in cui esistano emittenti che tra- 
smettono software. 

Maurizio Monaldi - via Vittorio Mon- 
tigli, 7 - 00168 Roma 

Vendo programmi per ZX Spec- 
trum oltre 1 00 testi (vari) scrivere ri- 
sposta a tuti. Prezzi ottimi. Avrete 
il listino completo. 

Rosario Vicari - Via Calatafini, 977 
90129 Palermo 


Cambio Basicode 2, contro il solo 
rimborso delle spese invio copia 
manuale e del nastro di questo pro- 
tocollo che permette lo scambio di 
programmi (Basic) tra oltre 20 di- 
versi computer (Apple - Commodo- 
re - BBC - Sinclair - CP/M -Philips 
- TRS - Microprofessor, ecc.). 
Maurizio Monaldi - via Vittorio Bon- 
tiglio, 7 - 00168 Roma 

Vendo causa prematura fine mio 
ZX8 1 , espansione memoria 1 6K, ta- 
stiera professionale racchiusa in 
mobile Teko, libri ”66 program- 
mi...” e "Imparate il basic con lo 
ZX81” oltre, naturalmente a moltis- 
simi programmi. 

Fabrizio Martano - via Don L. Stur- 
zo, 7 - 58100 Grosseto - Tel. 
0564/492806 

Agrigento e provincia utenti com- 
puters Sinclairs cercasi per scambi 
di software, idee ed eventuali fon- 
dazioni Sinclub. 

Giuseppe Taibi - via E. Duse, 34 - 
92100 Agrigento - Tel. 
71047/20768 

Vendo cambio + di 250 program- 
mi per ZX Spectrum al presso di L. 
2000 a programma, risposta 
assicurata. 

Luigi Faberi - via Campagnola, 3 - 
25079 Vobarno (BS) - Tel. 
0365/618388 

Vendo EXP 3845, una piccola inter- 
faccia Spectrum che ti consente di 
sperimentare e studiare l’hardware 
del computer. L. 29.000 in contras- 
segno. 

Severi Marino - Piazza Isei, 28 - 
47023 Cesena - Tel. 0547/20890 

Per ZX Spectrum disponiamo di ol- 
tre 600 titoli fra cui tutte le novità 
inglesi. Programmi sucassette sin- 
gole a L. 4000/5000 (doppia regi- 
strazione) o in sequenza su nastri di 
prima qualità a L. 20.000 per 6 pro- 
grammi a scelta. Richiedere gratui- 
tamente e senza impegno lista sem- 
pre aggiornata. 

G. Franco Posterli - via L. Ariosto, 
123 - 20099 Sesto S. Giovanni (MI) 
Tel. 02/2480163 

Vendo molti programmi per ZX 
Spectrum originali inglesi a prezzi 
bassi,. Inoltre vendo ZX81 1K con 
alimentatore, libro “66 pogrammi 
per ZX81 ed Epron, programma- 
ta con “Space Invaders” a L. 
100.000. Richiedere listino gratis. 
Francesco Ficcabrino - viale Trie- 
ste, 36 - 93100 Caltanisetta - Tel. 
0934/26045 


Compro, vendo, cambio software 
per ZX Spectrum, Apple, C64, VIC 
20, TI 99/4A: Richiedre lista gratui- 
ta a: 

Sergio Remondino - via De Gaspe- 
ri, 3 - 10015 Ivrea (TO) 

Vendo programmi per ZX Spec- 
trum 16/48K a sole L. 2000 cadau- 
no. Richiedere elenco scrivendo e 
inviando bollo per risposta e telefo- 
nare ore ufficio a: 

Pietro Melissari via Stazione, 4 - 
18011 Arma di Taggia (IM) - Tel. 
0184/448388 

Cerco possessori di ZX Spectrum, 
per cambio programmi. Inviare li- 
sta, risposta assicurata. 

Andrea Moggio - via M. Sauro, 15 
- 13051 Biella (VC)- Tel. 015/32644 

Vendo ZX Spectrum 16 + manua- 
le italiano + ”77 programmi per lo 
Spectrum” + "Programmazione 
dello Spectrum” + 85 listati + 40 
programmi in cassetta, tutto a L. 
300.000 + spese postali. Telefona- 
re ore pasti a: 

Luca Minuder - via Kennedy, 1 1 - 
31015 Conegliano (TV) - Tel. 
0438/34272 

Cambio, vendo, compro program- 
mi per ZX Spectrum di ogni gene- 
re. Inviare propria lista risposta as- 
sicurata oltre 200 programmi 
Giulio Guidotti - Via del Popolo, 5A 
56036 Palaia (PI) - Tel. 
0578/622178 

Cambio programmi per ZX Spec- 
trum 16-48K. Inoltre cambio anche 
programmi per Commodore CBM 
64. I migliori sulla piazza! 

Stefano Goldoni - Via Pascal 33/2 
-4110 Modena - Tel. 059/242849 

Vendo cambio software utilità, ap- 
plicativo e video games per ZX 
Spectrum. tra i titoli hurg (gnerato- 
re videogiochi) ant attack, jet set 
Willy, printer set, personale finance, 
magazzino. Ma anche molti molti 
altri per elenco. Scrivere a: 
ALberto Catania - Vie Vercelli , 21 
10036 Settimo T.SE (TO) - Tel. 
8009478 

Costruisco interfaccia programma- 
bile per joystick, compatibile con 
qualsiasi gioco per ZX Spectrum- 
ZX81. Possibilità di collegamento 
per uno o due joystick. Prezzi più 
che modici!!! Per informazioni tele- 
fonare a: 

Fulvio Dumini - Via G. Pescetti, 79 - 
50127 Firenze - Tel. 055/410823 
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CEDOLA DI ORDINAZIONE - LIBRI 

da compilare e spedire in busta chiusa a 

J .soff - Via Rosellini. 12 - 20124 Milano - Tel. 6888228 


LIBRI SPECTRUM TOOL cod. AJAK022 L. 13.500 

IL LIBRO DEL MICRODRIVE SPECTRUM 

cod AJACC004 L. 14.400 


Ordino i seguenti libri per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione 


Cod 

Cod 

Contanti allegati 


. Cod 

. Cod 

Assegno allegato n° 


Cod. . 
Cod. . 


Ho spedito l’importo a mezzo vaglia postale 

Ho versato l importo sul ccp. n° 19445204 intestato a J.soff - Milano 

Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) 


Nome 

Cognome . 

Via 

Città 


. C.A.P Prov. . 


Se richiesta fattura: 
Cod. F. e P. Iva 


Data ... 


Firma . 


Per i soci residenti all'estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 


SUPERSINC 


SOFTWARE TOWER OFEVIL 

I VVMnC VOLCANIC PLANET 


CEDOLA DI ORDINAZIONE - CASSETTE 

da compilare e spedire in busta chiusa a 

J.soff - Via Rosellini. 12 - 20124 Milano - Tel. 6888228 

Ordino le seguenti cassette per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione 


cod. DTMS02 L. 16.000 
cod DTMS03 L 16 000 


Cod. . 
Cod. . 


Contanti allegati 


. Cod 

. Cod 

Assegno allegato n° 


Cod. . 
Cod. . 


Ho spedito l’importo a mezzo vaglia postale 

Ho versato l'importo sul ccp. n° 19445204 intestato a J.soft - Milano 
Pagherò in contrassegno al postino al ricevimento delle cassette 


Nome 

Cognome 
Via 


Città . 


Se richiesta fattura: 
Cod. F. e P. Iva 


Data . 


. C.A.P Prov 


Firma 

Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 


SUPERSINC La rubrica INPUT/OUTPUT è gratuita ed aperta a 

tutti i lettori. Chi desidera comprare, vendere o 
INPUT/OUTPUT cambiare hardware o software può inviare il ta- 
gliando a J.soft - Via Rosellini, 12 20124 MILANO 

COMPRO VENDO CAMBIO 

ZX80 ZX81 ZX Spectrum PERIF. SOFTWARE 


Nome Cognome 

Via C.A.P 

Città Tel.. 


SUPERSINC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 


Nome Cognome 

Via C.A.P 

Città Tel.. 


i 




GP50A E GP50S 


le piccole stampanti per 
tutti i computer 


SEIKOSHA 
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Piccole e com- 
patte dalle pre- 
stazioni grandie 
generose, le 
GP50A e GP50S 
sono realizzate 
con standard pro- 
fessionali a misura 
di Personal e Home 
computer e si impongono quale soluzio- 
ne ottimale per gli usi hobbystici più di- 






sparati a 
costi in- 
credibil- 
mente 
sorpren- 
denti. 
Particolare 
attenzione merita la 
GP50S, stampante direttamente inter- 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

• Matrice di stampa 5x8 (7x7 versione 
GP50S) 

• Percorso di stampa monodirezionaie (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento del 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


• Caratterizzazione: 12 cpi e relativo espanso 

• Interfacce: parallela Centronics (interfaccia 
Sinclair versione GP50S) 

• Alimentazione carta a frizione (largh. carta 
fino a 5") 

• Stampa 1 originale e 1 copia 

• Set di 96 caratteri ASCII 

• Consumo 11W (standby) o 17W (stampa) 

• Livello di rumore inferiore a 60 dB 

• Durata di vita testa: 30 milioni di caratteri 

• Peso 1,5 KG 

• Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

• Nastro nero (standard); optionals: rosso, 
arancio, verde, blu, viola e marrone. 





PERSONAL COMPUTER: 
le prime, le migliori! 



NAL SOFTWARE 
che presenta software 
i i personal: 

)dore / Apple, Sinclair, ' 
Sega, Olivetti, ecc. 
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BIT: La più letta, la prima e più diffusa 
TEST: Decision Mate V 
SUPERBIT - 64 pagine di programmi 
per i vostri personal computer. 


Con tutta la competenza del 

GRUPPO EDITORIALE 



